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 0da5ec895c3fbe0519217d0b29315b97b0fc2821..1654738e592b818a2a3c8f478b283ed543cddffc 100644 (file)
--- 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';