Bug 67950c - make quips.cgi compile without warnings, by use vars-ing $userid. Patch...

diff --git a/quips.cgi b/quips.cgi
index be773e1e1f5786d8593bc0c7469a26d5aa0e8878..e97bdd2b308ce9a099ae1370772c44ce13c3e368 100755 (executable)
--- a/quips.cgi
+++ b/quips.cgi
@@ -27,6 +27,7 @@ use strict;
 
 use vars qw(
   %FORM
+  $userid
   $template
   $vars
 );
@@ -68,7 +69,7 @@ if ($action eq "add") {
         exit();
     }
 
-    SendSQL("INSERT INTO quips (userid, quip) VALUES (". $::userid . ", " . SqlQuote($comment) . ")");
+    SendSQL("INSERT INTO quips (userid, quip) VALUES (". $userid . ", " . SqlQuote($comment) . ")");
 
     $vars->{'added_quip'} = $comment;
 }