From 49d12c8c90c1bc6c72f0b3d1324a23002e79b6d3 Mon Sep 17 00:00:00 2001
From: "mkanat%bugzilla.org" <>
Date: Mon, 8 Oct 2007 02:32:23 +0000
Subject: 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

---
 editgroups.cgi | 2 ++
 query.cgi      | 1 +
 2 files changed, 3 insertions(+)

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;
 
-- 
cgit v1.2.3-24-g4f1b