Change 11025 by jhi@alpha on 2001/06/29 13:07:57
Subject: Re: perl@10967, File::Find, and Cwd
From: Mike Guy <[EMAIL PROTECTED]>
Date: Fri, 29 Jun 2001 14:56:49 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/File/Find/taint.t#7 edit
Differences ...
==== //depot/perl/lib/File/Find/taint.t#7 (text) ====
Index: perl/lib/File/Find/taint.t
--- perl/lib/File/Find/taint.t.~1~ Fri Jun 29 07:15:05 2001
+++ perl/lib/File/Find/taint.t Fri Jun 29 07:15:05 2001
@@ -24,6 +24,16 @@
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';
End of Patch.
