From: bbaetz%cs.mcgill.ca <>
Date: Sat, 17 Nov 2001 15:57:25 +0000 (+0000)
Subject: Bug 101560, pt 2. Perl 5.00503 gives a (bogus?) warning which 5.6 doesn't.
X-Git-Tag: bugzilla-2.16rc1~331
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=684e6deb0f1f87bd51f8fdab3b8df7d432fd12c9;p=thirdparty%2Fbugzilla.git

Bug 101560, pt 2. Perl 5.00503 gives a (bogus?) warning which 5.6 doesn't.
Quote manually rather than using qw to get arround this
---

diff --git a/globals.pl b/globals.pl
index 0da5ec895c..1654738e59 100644
--- a/globals.pl
+++ b/globals.pl
@@ -74,7 +74,7 @@ use Date::Parse;               # For str2time().
 use RelationSet;
 
 # Some environment variables are not taint safe
-delete $ENV{qw(PATH IFS CDPATH ENV BASH_ENV)};
+delete @::ENV{'PATH', 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
 
 # Contains the version string for the current running Bugzilla.
 $::param{'version'} = '2.15';