diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-28 23:14:53 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-28 23:14:53 +0000 |
commit | 3ab3a8be4affb990700be5c641fcfcf361324521 (patch) | |
tree | 4c2cf1438ad7305f18f8037ad4149358451aacf4 /lib | |
parent | 7d5888f83a256d0a7838cc636f157f82966e18d3 (diff) | |
download | perl-3ab3a8be4affb990700be5c641fcfcf361324521.tar.gz |
Worrying about insecure directories now is a bit too late.
p4raw-id: //depot/perl@11013
Diffstat (limited to 'lib')
-rw-r--r-- | lib/File/Find/taint.t | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/lib/File/Find/taint.t b/lib/File/Find/taint.t index f27c42c5fc..cdd75de7d8 100644 --- a/lib/File/Find/taint.t +++ b/lib/File/Find/taint.t @@ -25,15 +25,6 @@ use File::Find; use File::Spec; use Cwd; -# Remove insecure directories from PATH -my @path; -my $sep = ($^O eq 'MSWin32') ? ';' : ':'; -foreach my $dir (split(/$sep/,$ENV{'PATH'})) - { - push(@path,$dir) unless -w $dir; - } -$ENV{'PATH'} = join($sep,@path); - my $NonTaintedCwd = $^O eq 'MSWin32' || $^O eq 'cygwin'; cleanup(); |