Bug 463315: Compiling buglist.cgi in Bugzilla 2.22.5+ with Perl 5.10 throws a warning...

diff --git a/Bugzilla/Search/Quicksearch.pm b/Bugzilla/Search/Quicksearch.pm
index 5163e4769f390025c7d917988c72e8045efae372..d3f100af21abf46b93a718404bd14653cde5864c 100644 (file)
--- a/Bugzilla/Search/Quicksearch.pm
+++ b/Bugzilla/Search/Quicksearch.pm
@@ -30,7 +30,6 @@ use Bugzilla::Util;
 use base qw(Exporter);
 @Bugzilla::Search::Quicksearch::EXPORT = qw(quicksearch);
 
-my $cgi = Bugzilla->cgi;
 
 # Word renamings
 my %mappings = (# Status, Resolution, Platform, OS, Priority, Severity
@@ -104,6 +103,7 @@ my $or = 0;
 sub quicksearch {
     my ($searchstring) = (@_);
     my $urlbase = correct_urlbase();
+    my $cgi = Bugzilla->cgi;
 
     # Remove leading and trailing commas and whitespace.
     $searchstring =~ s/(^[\s,]+|[\s,]+$)//g;
@@ -488,6 +488,7 @@ sub addChart {
 # Create the CGI parameters for a boolean chart
 sub makeChart {
     my ($expr, $field, $type, $value) = @_;
+    my $cgi = Bugzilla->cgi;
 
     $cgi->param("field$expr", $field);
     $cgi->param("type$expr",  $type);