svn commit: r1067392 - /httpd/apreq/trunk/glue/perl/lib/APR/Request/Magic.pm

[joes]

Author: joes
Date: Sat Feb  5 05:19:49 2011
New Revision: 1067392

URL: http://svn.apache.org/viewvc?rev=1067392&view=rev
Log:
bugs

Modified:
    httpd/apreq/trunk/glue/perl/lib/APR/Request/Magic.pm

Modified: httpd/apreq/trunk/glue/perl/lib/APR/Request/Magic.pm
URL: 
http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/lib/APR/Request/Magic.pm?rev=1067392&r1=1067391&r2=1067392&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/lib/APR/Request/Magic.pm (original)
+++ httpd/apreq/trunk/glue/perl/lib/APR/Request/Magic.pm Sat Feb  5 05:19:49 
2011
@@ -5,14 +5,14 @@ if ($@) {
     require APR::Request::CGI;
     require APR::Pool;
     base->import("APR::Pool");
-    *handle = *APR::Request::CGI::handle;
-    *new = sub { bless APR::Pool->new, shift; };
+    *handle = sub { APR::Request::CGI->handle(@_) };
+    *new = sub { bless APR::Pool->new, shift };
     return 1;
 }
 require Apache2::RequestRec;
 require Apache2::RequestUtil;
 base->import("Apache2::RequestRec");
-*handle = *APR::Request::Apache2::handle;
-*new = sub { bless Apache2::RequestUtil->request, shift; }
+*handle = sub { APR::Request::Apache2->handle(@_) };
+*new = sub { bless Apache2::RequestUtil->request, shift };
 
 1;