This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove VMS-specific hacks from showlex.t.
authorCraig A. Berry <craigberry@mac.com>
Fri, 26 Aug 2016 02:09:01 +0000 (21:09 -0500)
committerCraig A. Berry <craigberry@mac.com>
Fri, 26 Aug 2016 02:09:01 +0000 (21:09 -0500)
I added this 15 years ago in d0c1fe9a9931bc27, but it isn't
necessary for any VMS version now supported and it has recently
caused the test to start failing under the test suite but not
when run individually.  So just get rid of it.

ext/B/t/showlex.t

index dd5cdb7..f92ac9e 100644 (file)
@@ -21,10 +21,8 @@ plan tests => 15;
 my $verbose = @ARGV; # set if ANY ARGS
 
 my $a;
-my $Is_VMS = $^O eq 'VMS';
 
 my $path = join " ", map { qq["-I$_"] } @INC;
-$path = '"-I../lib" "-Iperl_root:[lib]"' if $Is_VMS;   # gets too long otherwise
 my $is_thread = $Config{use5005threads} && $Config{use5005threads} eq 'define';
 
 if ($is_thread) {