This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Retract #10845.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 22 Jun 2001 21:51:31 +0000 (21:51 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 22 Jun 2001 21:51:31 +0000 (21:51 +0000)
p4raw-id: //depot/perl@10848

lib/File/Find/taint.t

index 14843a1..fb3dfc2 100644 (file)
@@ -321,7 +321,7 @@ eval {File::Find::find( {wanted => \&simple_wanted, untaint => 1,
 
 print "# $@" if $@;
 #$^D = 8;
-if ($^O eq 'MSWin32' || $^O eq 'cygwin') {
+if ($^O eq 'MSWin32') {
        Skip("$^O does not taint cwd");
     } 
 else {