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

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

2 files changed, 3 insertions, 0 deletions

diff --git a/editgroups.cgi b/editgroups.cgi
index b9503426b..43875da51 100755
--- 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 c23c1b0fb..bd69330e9 100755
--- 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;