From 8662f7724383223b56544773a23b4cc9ace4496e Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org"
 <terry%mozilla.org@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Mon, 18 Oct 1999 23:04:40 +0000
Subject: [PATCH] Fixed stupid perl warning.

git-svn-id: svn://10.0.0.236/trunk@51051 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/bugzilla/long_list.cgi | 10 ++++++++--
 mozilla/webtools/bugzilla/post_bug.cgi  |  9 +++++----
 2 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/mozilla/webtools/bugzilla/long_list.cgi b/mozilla/webtools/bugzilla/long_list.cgi
index e855c443422..0641dd22931 100755
--- a/mozilla/webtools/bugzilla/long_list.cgi
+++ b/mozilla/webtools/bugzilla/long_list.cgi
@@ -25,8 +25,14 @@ use strict;
 
 require "CGI.pl";
 
-# Shut up misguided -w warnings about "used only once":
-use vars %::FORM;
+# Shut up misguided -w warnings about "used only once".  "use vars" just
+# doesn't work for me.
+
+sub sillyness {
+    my $zz;
+    $zz = $::usergroupset;
+    $zz = %::FORM;
+}
 
 print "Content-type: text/html\n\n";
 PutHeader ("Full Text Bug Listing");
diff --git a/mozilla/webtools/bugzilla/post_bug.cgi b/mozilla/webtools/bugzilla/post_bug.cgi
index d31a73774ce..c85c75eba35 100755
--- a/mozilla/webtools/bugzilla/post_bug.cgi
+++ b/mozilla/webtools/bugzilla/post_bug.cgi
@@ -28,10 +28,11 @@ require "CGI.pl";
 # Shut up misguided -w warnings about "used only once".  For some reason,
 # "use vars" chokes on me when I try it here.
 
-# use vars qw($::buffer);
-my $zz = $::buffer;
-$zz = $zz . $zz;
-
+sub sillyness {
+    my $zz;
+    $zz = $::buffer;
+    $zz = %::COOKIE;
+}
 confirm_login();
 
 print "Set-Cookie: PLATFORM=$::FORM{'product'} ; path=/ ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n";