Commit 91d8db0d authored by terry%mozilla.org's avatar terry%mozilla.org

Fixed stupid perl warning.

parent 88e4e7ea
...@@ -25,8 +25,14 @@ use strict; ...@@ -25,8 +25,14 @@ use strict;
require "CGI.pl"; require "CGI.pl";
# Shut up misguided -w warnings about "used only once": # Shut up misguided -w warnings about "used only once". "use vars" just
use vars %::FORM; # doesn't work for me.
sub sillyness {
my $zz;
$zz = $::usergroupset;
$zz = %::FORM;
}
print "Content-type: text/html\n\n"; print "Content-type: text/html\n\n";
PutHeader ("Full Text Bug Listing"); PutHeader ("Full Text Bug Listing");
......
...@@ -28,10 +28,11 @@ require "CGI.pl"; ...@@ -28,10 +28,11 @@ require "CGI.pl";
# Shut up misguided -w warnings about "used only once". For some reason, # Shut up misguided -w warnings about "used only once". For some reason,
# "use vars" chokes on me when I try it here. # "use vars" chokes on me when I try it here.
# use vars qw($::buffer); sub sillyness {
my $zz = $::buffer; my $zz;
$zz = $zz . $zz; $zz = $::buffer;
$zz = %::COOKIE;
}
confirm_login(); confirm_login();
print "Set-Cookie: PLATFORM=$::FORM{'product'} ; path=/ ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n"; print "Set-Cookie: PLATFORM=$::FORM{'product'} ; path=/ ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment