fix Showlex.t for VMS
authorCraig A. Berry <craigberry@mac.com>
Thu, 2 Aug 2001 12:56:19 +0000 (07:56 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 2 Aug 2001 22:46:22 +0000 (22:46 +0000)
Message-Id: <5.1.0.14.0.20010802124618.034c5008@exchi01>

p4raw-id: //depot/perl@11556

ext/B/Showlex.t

index a21f03b..f25bc5c 100644 (file)
@@ -22,6 +22,7 @@ my $Is_VMS = $^O eq 'VMS';
 my $Is_MacOS = $^O eq 'MacOS';
 
 my $path = join " ", map { qq["-I$_"] } @INC;
+$path = '"-I../lib" "-Iperl_root:[lib]"' if $Is_VMS;   # gets too long otherwise
 my $redir = $Is_MacOS ? "" : "2>&1";
 my $is_thread = $Config{use5005threads} && $Config{use5005threads} eq 'define';