Re: [PATCH] Re: perl winpid?

Message-ID: <20050216044512.GA2516@efn.org>

p4raw-id: //depot/perl@23973

diff --git a/ext/B/t/stash.t b/ext/B/t/stash.t
index a6e4635..879368a 100755 (executable)
--- a/ext/B/t/stash.t
+++ b/ext/B/t/stash.t
@@ -61,7 +61,7 @@ print "# got = @got\n";
 @got = grep { ! /^Win32$/                     } @got  if $^O eq 'MSWin32';
 @got = grep { ! /^NetWare$/                   } @got  if $^O eq 'NetWare';
 @got = grep { ! /^(Cwd|File|File::Copy|OS2)$/ } @got  if $^O eq 'os2';
-@got = grep { ! /^Cwd$/                       } @got  if $^O eq 'cygwin';
+@got = grep { ! /^(Cwd|Cygwin)$/              } @got  if $^O eq 'cygwin';
 
 if ($Is_VMS) {
     @got = grep { ! /^File(?:::Copy)?$/    } @got;