From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 2 Aug 2001 12:56:19 +0000 (-0500)
Subject: fix Showlex.t for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0c1fe9a9931bc271f3df5ece8307ad9f229999f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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';