summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorterry%mozilla.org <>1999-10-19 08:02:59 +0200
committerterry%mozilla.org <>1999-10-19 08:02:59 +0200
commit91d8db0df1b0e1465a1f1c13c1e9adb5cf3d9c7b (patch)
tree41cb5d4d24371337b2945c574613587add500135
parent88e4e7eaae0c4d7177bc30c6f992e84396b0a4ed (diff)
downloadbugzilla-91d8db0df1b0e1465a1f1c13c1e9adb5cf3d9c7b.tar.gz
bugzilla-91d8db0df1b0e1465a1f1c13c1e9adb5cf3d9c7b.tar.xz
Fixed stupid perl warning.
-rwxr-xr-xlong_list.cgi10
-rwxr-xr-xpost_bug.cgi9
2 files changed, 13 insertions, 6 deletions
diff --git a/long_list.cgi b/long_list.cgi
index e855c4434..0641dd229 100755
--- a/long_list.cgi
+++ b/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/post_bug.cgi b/post_bug.cgi
index d31a73774..c85c75eba 100755
--- a/post_bug.cgi
+++ b/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";