Bug 398883: [mod_perl] Three Variable "$cgi" will not stay shared errors in current...

Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=LpSolit, a=LpSolit

diff --git a/editgroups.cgi b/editgroups.cgi
index b9503426b58385bf86876a31e43bb7944c14fb78..43875da51548e362ebf950782ac775f4c374b76d 100755 (executable)
--- a/editgroups.cgi
+++ b/editgroups.cgi
@@ -609,6 +609,7 @@ sub doGroupChanges {
 
 sub _do_add {
     my ($group, $changes, $sth_insert, $field, $type, $reverse) = @_;
+    my $cgi = Bugzilla->cgi;
 
     my $current;
     # $reverse means we're doing a granted_by--that is, somebody else
@@ -639,6 +640,7 @@ sub _do_add {
 
 sub _do_remove {
     my ($group, $changes, $sth_delete, $field, $type, $reverse) = @_;
+    my $cgi = Bugzilla->cgi;
     my $remove_items = Bugzilla::Group->new_from_list([$cgi->param($field)]);
 
     foreach my $remove (@$remove_items) {

diff --git a/query.cgi b/query.cgi
index c23c1b0fbe313360484c228686bb4d6d2ef8633c..bd69330e9487976e4fa0cb1842e8c544a021a498 100755 (executable)
--- a/query.cgi
+++ b/query.cgi
@@ -111,6 +111,7 @@ local our %default;
 # and ignore any multiple values.
 sub PrefillForm {
     my ($buf) = (@_);
+    my $cgi = Bugzilla->cgi;
     $buf = new Bugzilla::CGI($buf);
     my $foundone = 0;