Lines Matching refs:PATH
39 $ENV{PATH} = $ENV{PATH};
66 for $x ('DCL$PATH', @MoreEnv) {
71 \$ENV{PATH} = '' if $Config{d_setenv};
72 warn "# Note: logical name 'PATH' may have been deleted\n";
133 $ENV{'DCL$PATH'} = '' if $Is_VMS;
135 $ENV{PATH} = '';
162 my @vars = ('PATH', @MoreEnv);
188 or print "# can't find world-writeable directory to test PATH\n";
192 local $ENV{PATH} = $tmp;
194 test 7, $@ =~ /^Insecure directory in \$ENV{PATH}/, $@;
201 $ENV{'DCL$PATH'} = $TAINT;
203 test 9, $@ =~ /^Insecure \$ENV{DCL\$PATH}/, $@;
205 $ENV{'DCL$PATH'} = $tmp;
207 test 11, $@ =~ /^Insecure directory in \$ENV{DCL\$PATH}/, $@;
210 for (10..11) { print "ok $_ # Skipped: can't find world-writeable directory to test DCL\$PATH\n" }
212 $ENV{'DCL$PATH'} = '';
908 $k !~ /^(BASH_ENV|CDPATH|ENV|IFS|PATH|PERL_CORE|TEMP|TERM|TMP)$/) {
943 local $ENV{PATH} .= $TAINT;