From 684e6deb0f1f87bd51f8fdab3b8df7d432fd12c9 Mon Sep 17 00:00:00 2001
From: "bbaetz%cs.mcgill.ca" <>
Date: Sat, 17 Nov 2001 15:57:25 +0000
Subject: 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

---
 globals.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'globals.pl')

diff --git a/globals.pl b/globals.pl
index 0da5ec895..1654738e5 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';
-- 
cgit v1.2.3-24-g4f1b