From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Tue, 28 Aug 2007 10:43:41 +0000 (-0400)
Subject: Revert/fix 31731 - Empty PATH taint test on Cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e59c8b07349f66b8f6de8cad95787c1bfaf1297d;p=p5sagit%2Fp5-mst-13.2.git

Revert/fix 31731 - Empty PATH taint test on Cygwin
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510708280743n7c0424berb9a402f864dcd399@mail.gmail.com>

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

diff --git a/t/op/taint.t b/t/op/taint.t
index aefe047..b49dfda 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -150,17 +150,7 @@ my $TEST = catfile(curdir(), 'TEST');
 	    };
 	}
     }
-    if ($Is_Cygwin and (! -f 'cygwin1.dll' or ! -f 'cygcrypt-0.dll')) {
-      require File::Copy;
-      -f 'cygwin1.dll' or File::Copy::copy("/usr/bin/cygwin1.dll", '.') or
-	  die "$0: failed to copy cygwin1.dll: $!\n";
-      -f 'cygcyrypt-0.dll' or File::Copy::copy("/usr/bin/cygcrypt-0.dll", '.') or
-	  die "$0: failed to copy cygcrypt-0.dll: $!\n";
-      eval q{
-		END { unlink "cygwin1.dll"; unlink "cygcrypt-0.dll"; }
-	    };
-    }
-    $ENV{PATH} = '';
+    $ENV{PATH} = ($Is_Cygwin) ? '/usr/bin' : '';
     delete @ENV{@MoreEnv};
     $ENV{TERM} = 'dumb';