}
sub next_test {
+ my $retval = $test;
$test = $test + 1; # don't use ++
+ $retval;
}
# Note: can't pass multipart messages since we try to
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;