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

fix Stash.t for VMS
Message-Id: <5.1.0.14.0.20010802230843.03530e58@mail.mac.com>

p4raw-id: //depot/perl@11563
---

diff --git a/ext/B/Stash.t b/ext/B/Stash.t
index d302d2e..ba58d17 100644
--- a/ext/B/Stash.t
+++ b/ext/B/Stash.t
@@ -23,6 +23,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";
 
 
@@ -45,8 +46,7 @@ if ($Is_VMS) {
     no strict 'vars';
     use vars '$OS2::is_aout';
 }
-if (($Config{static_ext} eq ' ' ||
-     ($Config{static_ext} eq 'Socket' && $Is_VMS))
+if ((($Config{static_ext} eq ' ') || ($Config{static_ext} eq ''))
     && !($^O eq 'os2' and $OS2::is_aout)
 	) {
     if (ord('A') == 193) { # EBCDIC sort order is qw(a A) not qw(A a)