X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftest.pl;h=7b1568523aeb7e50315665c3a7b399409fc2b7d7;hb=eec72883e7bd2862f334c41702163eb3262a292c;hp=495a93dbf260104323367fbe2a2ce1bc6d70c09a;hpb=178eff928e12522422417310bee9331fccc184cf;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/test.pl b/t/test.pl
index 495a93d..7b15685 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -523,10 +523,11 @@ sub runperl {
 	my @keys = grep {exists $ENV{$_}} qw(CDPATH IFS ENV BASH_ENV);
 	local @ENV{@keys} = ();
 	# Untaint, plus take out . and empty string:
+	local $ENV{'DCL$PATH'} = $1 if $is_vms && ($ENV{'DCL$PATH'} =~ /(.*)/s);
 	$ENV{PATH} =~ /(.*)/s;
 	local $ENV{PATH} =
 	    join $sep, grep { $_ ne "" and $_ ne "." and
-		($is_mswin or !(stat && (stat _)[2]&0022)) }
+		($is_mswin or $is_vms or !(stat && (stat _)[2]&0022)) }
 		    split quotemeta ($sep), $1;
 
 	$runperl =~ /(.*)/s;