Re: perl@10967, File::Find, and Cwd

Message-Id: <E15FylN-0004LT-00@draco.cus.cam.ac.uk>

p4raw-id: //depot/perl@11025

diff --git a/lib/File/Find/taint.t b/lib/File/Find/taint.t
index cdd75de..1e1258e 100644 (file)
--- a/lib/File/Find/taint.t
+++ b/lib/File/Find/taint.t
@@ -24,6 +24,16 @@ else                   { print "1..27\n";  }
 use File::Find;
 use File::Spec;
 use Cwd;
+use Config;
+
+# Remove insecure directories from PATH
+my @path;
+my $sep = $Config{path_sep};
+foreach my $dir (split(/$sep/,$ENV{'PATH'}))
+ {
+  push(@path,$dir) unless (stat $dir)[2] & 0002;
+ }
+$ENV{'PATH'} = join($sep,@path);
 
 my $NonTaintedCwd = $^O eq 'MSWin32' || $^O eq 'cygwin';