Change 31731 by [EMAIL PROTECTED] on 2007/08/18 08:01:15
Subject: [PATCH] Change 31710 causes t/op/taint.t to fail
From: Reini Urban <[EMAIL PROTECTED]>
Date: Fri, 17 Aug 2007 08:56:38 +0200
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/op/taint.t#85 edit
Differences ...
==== //depot/perl/t/op/taint.t#85 (xtext) ====
Index: perl/t/op/taint.t
--- perl/t/op/taint.t#84~30827~ 2007-04-01 11:11:28.000000000 -0700
+++ perl/t/op/taint.t 2007-08-18 01:01:15.000000000 -0700
@@ -150,7 +150,16 @@
};
}
}
-
+ 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 @[EMAIL PROTECTED];
$ENV{TERM} = 'dumb';
End of Patch.
