diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2003-12-06 14:32:59 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-13 21:56:45 +0000 |
| commit | cef9cd040e10b07efbd9a7863a7e4a157058c667 (patch) | |
| tree | d67bbcbc6502f0ead6a8c61fce40858140081865 /t/op/taint.t | |
| parent | 1bbae031e701e9c1f2c21c9ed7e918cd9b2c4106 (diff) | |
| download | perl-cef9cd040e10b07efbd9a7863a7e4a157058c667.tar.gz | |
Re: 5.6.2-RC1 on Cygwin
Message-ID: <20031207063259.GA3004@efn.org>
(with tweaks to cleanup code)
p4raw-id: //depot/perl@21902
Diffstat (limited to 't/op/taint.t')
| -rwxr-xr-x | t/op/taint.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index b27dcde60d..579545a95c 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"; |