From: Peter Prymmer <PPrymmer@factset.com>
Date: Fri, 4 May 2001 17:44:13 +0000 (-0700)
Subject: the real fix for t/lib/b-stash.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38535c9801a7c2795e463ba640cc0cfb5a99bd59;p=p5sagit%2Fp5-mst-13.2.git

the real fix for t/lib/b-stash.t
Message-ID: <Pine.OSF.4.10.10105041734280.67333-100000@aspara.forte.com>

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

diff --git a/t/lib/b-stash.t b/t/lib/b-stash.t
index 1603991..3d12de3 100644
--- a/t/lib/b-stash.t
+++ b/t/lib/b-stash.t
@@ -32,14 +32,19 @@ $a =~ s/-u(PerlIO|open)(?:::\w+)?,//g if defined $Config{'useperlio'} and $Confi
 $a =~ s/-uWin32,// if $^O eq 'MSWin32';
 $a =~ s/-u(Cwd|File|File::Copy|OS2),//g if $^O eq 'os2';
 $a =~ s/-uCwd,// if $^O eq 'cygwin';
-if ($Config{static_ext} eq ' ' ||
-    $Config{static_ext} eq 'DynaLoader') {
   $b = '-uCarp,-uCarp::Heavy,-uDB,-uExporter,-uExporter::Heavy,-uattributes,'
      . '-umain,-ustrict,-uutf8,-uwarnings';
+if ($Is_VMS) {
+    $a =~ s/-uFile,-uFile::Copy,//;
+    $a =~ s/-uVMS,-uVMS::Filespec,//;
+    $a =~ s/-uSocket,//; # Socket is optional/compiler version dependent
+}
+if ($Config{static_ext} eq ' ' ||
+    ($Config{static_ext} eq 'Socket' && $Is_VMS)) {
   if (ord('A') == 193) { # EBCDIC sort order is qw(a A) not qw(A a)
       $b = join ',', sort split /,/, $b;
   }
-  print "# [$a] vs [$b]\nnot " if $a ne $b;
+  print "# [$a]\n# vs.\n# [$b]\nnot " if $a ne $b;
   ok;
 } else {
   print "ok $test # skipped: one or more static extensions\n"; $test++;