From 6f998dadd365dcf88776abd404d1a47b068400ff Mon Sep 17 00:00:00 2001
From: Gisle Aas <gisle@activestate.com>
Date: Mon, 20 Mar 2006 10:44:08 +0000
Subject: [PATCH] Also strip $ENV{PATH} dirs writable by world. The stripping
 was introduced in change 27364 to improve taint handling.

p4raw-id: //depot/perl@27550
---
 t/test.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/test.pl b/t/test.pl
index e900d003df..0f2f7a0077 100644
--- 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;
-- 
2.34.1