fix Showlex.t for VMS

Message-Id: <5.1.0.14.0.20010802124618.034c5008@exchi01>

p4raw-id: //depot/perl@11556

diff --git a/ext/B/Showlex.t b/ext/B/Showlex.t
index a21f03b..f25bc5c 100644 (file)
--- a/ext/B/Showlex.t
+++ b/ext/B/Showlex.t
@@ -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';