diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-08-28 06:43:41 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-08-28 16:52:45 +0000 |
| commit | e59c8b07349f66b8f6de8cad95787c1bfaf1297d (patch) | |
| tree | 167bbecf970066ee445e5e3eec3597625e34b987 /t | |
| parent | 62f5ad7ae472707ae64930aa30311f9787f4a9a2 (diff) | |
| download | perl-e59c8b07349f66b8f6de8cad95787c1bfaf1297d.tar.gz | |
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
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/taint.t | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index aefe0477d5..b49dfdadce 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'; |