can't set $p without $cgi

diff --git a/htetc/handler.pl b/htetc/handler.pl
index 33f9c48..b9da085 100644 (file)
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -213,9 +213,9 @@ sub handler
         $cgi = new CGI;
         &cgisuidsetup($cgi);
         #&cgisuidsetup($r);
+        $p = popurl(2);
       }
 
-      $p = popurl(2);
 
       sub include {
         use vars qw($m);