Change 11013 by jhi@alpha on 2001/06/28 23:14:53
Worrying about insecure directories now is a bit too late.
Affected files ...
... //depot/perl/lib/File/Find/taint.t#6 edit
Differences ...
==== //depot/perl/lib/File/Find/taint.t#6 (text) ====
Index: perl/lib/File/Find/taint.t
--- perl/lib/File/Find/taint.t.~1~ Thu Jun 28 17:15:05 2001
+++ perl/lib/File/Find/taint.t Thu Jun 28 17:15:05 2001
@@ -25,15 +25,6 @@
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();
End of Patch.
