diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-04-24 16:12:43 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 04:07:07 +0000 |
| commit | 3eeba6fb8b434fcb27f601771baa0ea98f44d487 (patch) | |
| tree | 0cdd318a0eb41e39117ecfe361e8c0b0088e2d3a /t/op/taint.t | |
| parent | b295d1132eed0f33e5e8fda2cd65ee1297fdabdb (diff) | |
| download | perl-3eeba6fb8b434fcb27f601771baa0ea98f44d487.tar.gz | |
applied suggested patch, modulo already applied parts
Message-id: <01JAF9UAV9XG002O0W@mail.newman.upenn.edu>
Subject: [Patch 5.005_56] VMS consolidated patch #2
p4raw-id: //depot/perl@3357
Diffstat (limited to 't/op/taint.t')
| -rwxr-xr-x | t/op/taint.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index d75bc1807a..fdd1c79b83 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -19,6 +19,13 @@ use Config; # just because Errno possibly failing. eval { require Errno; import Errno }; +BEGIN { + if ($^O eq 'VMS' && !defined($Config{d_setenv})) { + $ENV{PATH} = $ENV{PATH}; + $ENV{TERM} = $ENV{TERM} ne ''? $ENV{TERM} : 'dummy'; + } +} + my $Is_VMS = $^O eq 'VMS'; my $Is_MSWin32 = $^O eq 'MSWin32'; my $Is_Dos = $^O eq 'dos'; @@ -33,7 +40,7 @@ if ($Is_VMS) { } eval <<EndOfCleanup; END { - \$ENV{PATH} = ''; + \$ENV{PATH} = '' if $Config{d_setenv}; warn "# Note: logical name 'PATH' may have been deleted\n"; \@ENV{keys %old} = values %old; } |