From: Reini Urban <rurban@x-ray.at>
Date: Fri, 17 Aug 2007 08:56:38 +0000 (+0200)
Subject: Change 31710 causes t/op/taint.t to fail
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eee7770f948125835e9e241cf25412e5a30f14ff;p=p5sagit%2Fp5-mst-13.2.git

Change 31710 causes t/op/taint.t to fail
Message-Id: <46C546A6.6020000@x-ray.at>

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

diff --git a/t/op/taint.t b/t/op/taint.t
index 96c420c..aefe047 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -150,7 +150,16 @@ 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} = '';
     delete @ENV{@MoreEnv};
     $ENV{TERM} = 'dumb';