diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-10-07 21:53:33 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-08 11:53:30 +0000 |
| commit | 88587957d5515b280bc1becf23e9f6520d5dce08 (patch) | |
| tree | 9bce880697d5b08985c9b38192d4549c30054862 /lib/File/Find/t | |
| parent | e3b2f2afc4d28243cf088b06f65acc79e00144f5 (diff) | |
| download | perl-88587957d5515b280bc1becf23e9f6520d5dce08.tar.gz | |
& what's to be done for 5.8.0?
Message-ID: <20011007205333.S38756@plum.flirble.org>
p4raw-id: //depot/perl@12356
Diffstat (limited to 'lib/File/Find/t')
| -rw-r--r-- | lib/File/Find/t/taint.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/File/Find/t/taint.t b/lib/File/Find/t/taint.t index 796402d442..73006e50c0 100644 --- a/lib/File/Find/t/taint.t +++ b/lib/File/Find/t/taint.t @@ -6,12 +6,15 @@ my %Expect_Name = (); # what we expect for $File::Find::name/fullname my %Expect_Dir = (); # what we expect for $File::Find::dir my ($cwd, $cwd_untainted); -use Config; BEGIN { chdir 't' if -d 't'; unshift @INC => '../lib'; +} +use Config; + +BEGIN { for (keys %ENV) { # untaint ENV ($ENV{$_}) = $ENV{$_} =~ /(.*)/; } |