diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-08 17:00:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-08 17:00:16 +0000 |
| commit | ce80be987a16564adb7a6ffba889fe9351e9e318 (patch) | |
| tree | b34b068bb776aa23655f32b60aa87d2d0f314d39 /t/pragma | |
| parent | 80f367555cea890216d3e46c721ae1841e0e0c4f (diff) | |
| download | perl-ce80be987a16564adb7a6ffba889fe9351e9e318.tar.gz | |
Deleting $ENV{PATH} in VMS is not recommendable.
p4raw-id: //depot/perl@7608
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/locale.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/pragma/locale.t b/t/pragma/locale.t index b29f799b95..61fb0756e1 100755 --- a/t/pragma/locale.t +++ b/t/pragma/locale.t @@ -354,7 +354,8 @@ foreach (0..15) { # Sanitize the environment so that we can run the external 'locale' # program without the taint mode getting grumpy. -delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; +# Deleting PATH in VMS leads into serious trouble. +delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)} unless $^O eq 'VMS'; if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a|")) { while (<LOCALES>) { |