From 841c0db2dbb9f4386c164614ebe77ba0790c6573 Mon Sep 17 00:00:00 2001
From: Prymmer/Kahn <pvhp@best.com>
Date: Fri, 4 May 2001 00:31:01 -0700
Subject: [PATCH] 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
---
 t/lib/b-stash.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
-- 
2.7.4