Change 27550: Also strip $ENV{PATH} dirs writable by world.

[Gisle Aas]

Change 27550 by [EMAIL PROTECTED] on 2006/03/20 10:44:08

        Also strip $ENV{PATH} dirs writable by world.
        The stripping was introduced in change 27364 to improve taint handling.

Affected files ...

... //depot/perl/t/test.pl#69 edit

Differences ...

==== //depot/perl/t/test.pl#69 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl#68~27364~    2006-03-02 12:14:50.000000000 -0800
+++ perl/t/test.pl      2006-03-20 02:44:08.000000000 -0800
@@ -506,7 +506,7 @@
        $ENV{PATH} =~ /(.*)/s;
        local $ENV{PATH} =
            join $sep, grep { $_ ne "" and $_ ne "." and
-               ($is_mswin or !((stat$_)[2]&0020)) }
+               ($is_mswin or !((stat$_)[2]&0022)) }
                    split quotemeta ($sep), $1;
 
        $runperl =~ /(.*)/s;
End of Patch.