projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
80f3675
)
Deleting $ENV{PATH} in VMS is not recommendable.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 8 Nov 2000 17:00:16 +0000
(17:00 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 8 Nov 2000 17:00:16 +0000
(17:00 +0000)
p4raw-id: //depot/perl@7608
t/pragma/locale.t
patch
|
blob
|
history
diff --git
a/t/pragma/locale.t
b/t/pragma/locale.t
index
b29f799
..
61fb075
100755
(executable)
--- 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>) {