diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-09 13:16:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-09 13:16:36 +0000 |
| commit | cce5967e6f0b5972e1914f4f3b863b045fa5194d (patch) | |
| tree | fce35add1eef8a3fb6ad3bc3a4d3966f5f6f743c /t/pragma | |
| parent | 8a4e5b40dba3387613897ea9c275824694f125bc (diff) | |
| download | perl-cce5967e6f0b5972e1914f4f3b863b045fa5194d.tar.gz | |
More VMS moves on environment handling, from Charles Lane.
p4raw-id: //depot/perl@7621
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/locale.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/t/pragma/locale.t b/t/pragma/locale.t index f8f4840bda..21f1b2c7ea 100755 --- a/t/pragma/locale.t +++ b/t/pragma/locale.t @@ -354,8 +354,12 @@ foreach (0..15) { # Sanitize the environment so that we can run the external 'locale' # program without the taint mode getting grumpy. -# Deleting PATH in VMS leads into serious trouble. -delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)} unless $^O eq 'VMS'; + +# $ENV{PATH} is special in VMS. +delete $ENV{PATH} if $^O ne 'VMS' or $Config{d_setenv}; + +# Other subversive stuff. +delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a|")) { while (<LOCALES>) { |