diff options
| author | Craig A. Berry <craigberry@mac.com> | 2010-03-01 19:55:08 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2010-03-01 19:55:08 -0600 |
| commit | 02bb3106fe98e7142548ce7815ba8632f0e4d4f8 (patch) | |
| tree | 0c39deaf29e25b5f2678e080a4fadbeb70c53f02 /t/test.pl | |
| parent | 6061da081a4fed7b01d246a6004b4366c205b50e (diff) | |
| download | perl-02bb3106fe98e7142548ce7815ba8632f0e4d4f8.tar.gz | |
Don't scrub DCL$PATH unless it's there.
It's optional and this was causing test failures when it didn't exist.
Diffstat (limited to 't/test.pl')
| -rw-r--r-- | t/test.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -525,7 +525,7 @@ 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); + local $ENV{'DCL$PATH'} = $1 if $is_vms && exists($ENV{'DCL$PATH'}) && ($ENV{'DCL$PATH'} =~ /(.*)/s); $ENV{PATH} =~ /(.*)/s; local $ENV{PATH} = join $sep, grep { $_ ne "" and $_ ne "." and -d $_ and |