X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=torrus%2Fperllib%2FTorrus%2FCGI.pm;h=88a434e6c7389a993075d3d62a510439b1050646;hb=71c4c439c4a5b414802802beabc8060986d4a065;hp=574e872521ccf8289fdbccf62544cc0e729fd51d;hpb=74e058c8a010ef6feb539248a550d0bb169c1e94;p=freeside.git

diff --git a/torrus/perllib/Torrus/CGI.pm b/torrus/perllib/Torrus/CGI.pm
index 574e87252..88a434e6c 100644
--- a/torrus/perllib/Torrus/CGI.pm
+++ b/torrus/perllib/Torrus/CGI.pm
@@ -14,7 +14,7 @@
 #  along with this program; if not, write to the Free Software
 #  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
 
-# $Id: CGI.pm,v 1.1 2010-12-27 00:03:43 ivan Exp $
+# $Id: CGI.pm,v 1.2 2010-12-27 08:40:19 ivan Exp $
 # Stanislav Sinyagin <ssinyagin@yahoo.com>
 
 # Universal CGI handler for Apache mod_perl and FastCGI
@@ -37,9 +37,13 @@ use Torrus::ACL;
 ## Torrus::CGI->process($q)
 ## Expects a CGI object as input
 
+our $q;
+
 sub process
 {
-    my($class, $q) = @_;
+    #my($class, $q) = @_;
+    my $class = shift;
+    $q = shift;
 
     my $path_info = $q->url(-path => 1);