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

The stripping was introduced in change 27364 to improve taint handling.

p4raw-id: //depot/perl@27550

diff --git a/t/test.pl b/t/test.pl
index e900d00..0f2f7a0 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -506,7 +506,7 @@ sub runperl {
        $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;