From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 6 Nov 2000 21:00:40 +0000 (+0000)
Subject: Sanitize the environment further.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=645e49edd155d974f77fa182639cf116f11265e7;p=p5sagit%2Fp5-mst-13.2.git

Sanitize the environment further.

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

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index e354c0f..b29f799 100755
--- a/t/pragma/locale.t
+++ b/t/pragma/locale.t
@@ -352,7 +352,9 @@ foreach (0..15) {
     trylocale("iso_latin_$_");
 }
 
-$ENV{PATH} = '/bin:/usr/bin';
+# 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)};
 
 if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a|")) {
     while (<LOCALES>) {