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

Bug 101560, pt 2. Perl 5.00503 gives a (bogus?) warning which 5.6 doesn't.
684e6deb · bbaetz%cs.mcgill.ca · d8de908a · 684e6deb
Commit 684e6deb authored Nov 17, 2001 by bbaetz%cs.mcgill.ca
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

globals.pl globals.pl +1 -1

No files found.
--- 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';