develooper Front page | perl.perl5.porters | Postings from August 2001

[PATCH perl@11523] fix Stash.t for VMS

From:
Craig A. Berry
Date:
August 2, 2001 21:15
Subject:
[PATCH perl@11523] fix Stash.t for VMS
Message ID:
5.1.0.14.0.20010802230843.03530e58@mail.mac.com
This was not failing but it was also not really running; Socket is now a 
dynamic extension which was causing us to unintentionally skip the test.  
Also, an empty $Config{static_ext} is '' rather than ' ' for us; is there a 
reason that's not true everywhere?

--- ext/B/Stash.t;-0    Mon Jul  9 09:09:51 2001
+++ ext/B/Stash.t       Thu Aug  2 23:07:24 2001
@@ -23,6 +23,7 @@
 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 @@
     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)
[end of patch]





nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About