From: lpsolit%gmail.com <>
Date: Thu, 6 Nov 2008 07:16:16 +0000 (+0000)
Subject: Bug 463315: Compiling buglist.cgi in Bugzilla 2.22.5+ with Perl 5.10 throws a warning... 
X-Git-Tag: bugzilla-2.22.6~1
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d1bede27b18d92b3384abebb2dce7788b2697050;p=thirdparty%2Fbugzilla.git

Bug 463315: Compiling buglist.cgi in Bugzilla 2.22.5+ with Perl 5.10 throws a warning due to Quicksearch.pm - Patch by Frédéric Buclin <LpSolit@gmail.com> r=justdave a=LpSolit
---

diff --git a/Bugzilla/Search/Quicksearch.pm b/Bugzilla/Search/Quicksearch.pm
index 5163e4769f..d3f100af21 100644
--- 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);