From ce80be987a16564adb7a6ffba889fe9351e9e318 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 8 Nov 2000 17:00:16 +0000 Subject: [PATCH] Deleting $ENV{PATH} in VMS is not recommendable. p4raw-id: //depot/perl@7608 --- t/pragma/locale.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/t/pragma/locale.t b/t/pragma/locale.t index b29f799..61fb075 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 () { -- 2.7.4