Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
bugzilla
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
etersoft
bugzilla
Commits
91d8db0d
Commit
91d8db0d
authored
Oct 19, 1999
by
terry%mozilla.org
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fixed stupid perl warning.
parent
88e4e7ea
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
6 deletions
+13
-6
long_list.cgi
long_list.cgi
+8
-2
post_bug.cgi
post_bug.cgi
+5
-4
No files found.
long_list.cgi
View file @
91d8db0d
...
...
@@ -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"
);
...
...
post_bug.cgi
View file @
91d8db0d
...
...
@@ -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"
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment