From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 9 Nov 2000 13:16:36 +0000 (+0000)
Subject: More VMS moves on environment handling, from Charles Lane.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cce5967e6f0b5972e1914f4f3b863b045fa5194d;p=p5sagit%2Fp5-mst-13.2.git

More VMS moves on environment handling, from Charles Lane.

p4raw-id: //depot/perl@7621
---

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index f8f4840..21f1b2c 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>) {