From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Sat, 6 Dec 2003 22:32:59 +0000 (-0800)
Subject: Re: 5.6.2-RC1 on Cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cef9cd040e10b07efbd9a7863a7e4a157058c667;p=p5sagit%2Fp5-mst-13.2.git

Re: 5.6.2-RC1 on Cygwin
Message-ID: <20031207063259.GA3004@efn.org>
(with tweaks to cleanup code)

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

diff --git a/t/op/taint.t b/t/op/taint.t
index b27dcde..579545a 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -139,7 +139,17 @@ print "1..220\n";
     if ($Is_Cygwin && ! -f 'cygwin1.dll') {
 	system("/usr/bin/cp /usr/bin/cygwin1.dll .") &&
 	    die "$0: failed to cp cygwin1.dll: $!\n";
-	END { unlink "cygwin1.dll" } # yes, done for all platforms...
+	eval q{
+	    END { unlink "cygwin1.dll" }
+	};
+    }
+
+    if ($Is_Cygwin && ! -f 'cygcrypt-0.dll' && -f '/usr/bin/cygcrypt-0.dll') {
+	system("/usr/bin/cp /usr/bin/cygcrypt-0.dll .") &&
+	    die "$0: failed to cp cygcrypt-0.dll: $!\n";
+	eval q{
+	    END { unlink "cygcrypt-0.dll" }
+	};
     }
 
     test 1, eval { `$echo 1` } eq "1\n";