From: Prymmer/Kahn <pvhp@best.com>
Date: Fri, 4 May 2001 07:31:01 +0000 (-0700)
Subject: let win32 run t/lib/b-stash.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=841c0db2dbb9f4386c164614ebe77ba0790c6573;p=p5sagit%2Fp5-mst-13.2.git

let win32 run t/lib/b-stash.t
Message-ID: <Pine.BSF.4.21.0105040727430.14844-100000@shell8.ba.best.com>

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

diff --git a/t/lib/b-stash.t b/t/lib/b-stash.t
index de43912..1603991 100644
--- a/t/lib/b-stash.t
+++ b/t/lib/b-stash.t
@@ -32,7 +32,8 @@ $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 ' ') {
+if ($Config{static_ext} eq ' ' ||
+    $Config{static_ext} eq 'DynaLoader') {
   $b = '-uCarp,-uCarp::Heavy,-uDB,-uExporter,-uExporter::Heavy,-uattributes,'
      . '-umain,-ustrict,-uutf8,-uwarnings';
   if (ord('A') == 193) { # EBCDIC sort order is qw(a A) not qw(A a)