From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 28 Jun 2001 23:14:53 +0000 (+0000)
Subject: Worrying about insecure directories now is a bit too late.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ab3a8be4affb990700be5c641fcfcf361324521;p=p5sagit%2Fp5-mst-13.2.git

Worrying about insecure directories now is a bit too late.

p4raw-id: //depot/perl@11013
---

diff --git a/lib/File/Find/taint.t b/lib/File/Find/taint.t
index f27c42c..cdd75de 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();