diff options
Diffstat (limited to 'post_bug.cgi')
-rwxr-xr-x | post_bug.cgi | 9 |
1 files changed, 5 insertions, 4 deletions
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"; |