Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-11-26 06:11:37 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fixed stupid perl warning.

Browse Source
This commit is contained in:
terry%mozilla.org 1999-10-18 23:04:40 +00:00
parent d43d834edd
commit 1f12ca43e5
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
webtools/bugzilla/long_list.cgi
View File

@ -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");

9
webtools/bugzilla/post_bug.cgi
View File

@ -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";