svn commit: r164688 - in /httpd/apreq/trunk/glue/perl: lib/Apache2/Request.pm t/response/TestApReq/request.pm xsbuilder/APR/Request/Request.xs

[joes]

Author: joes
Date: Mon Apr 25 16:35:00 2005
New Revision: 164688

URL: http://svn.apache.org/viewcvs?rev=164688&view=rev
Log:
Fix perl glue to use $req->pool().


Modified:
    httpd/apreq/trunk/glue/perl/lib/Apache2/Request.pm
    httpd/apreq/trunk/glue/perl/t/response/TestApReq/request.pm
    httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.xs

Modified: httpd/apreq/trunk/glue/perl/lib/Apache2/Request.pm
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/lib/Apache2/Request.pm?rev=164688&r1=164687&r2=164688&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/lib/Apache2/Request.pm (original)
+++ httpd/apreq/trunk/glue/perl/lib/Apache2/Request.pm Mon Apr 25 16:35:00 2005
@@ -23,13 +23,10 @@
 }
 
 sub hook_data {die "hook_data not implemented"}
-sub upload_hook {
-    my ($req, $code) = @_;
-    $req->APR::Request::upload_hook($req->pool, $code);
-}
+
 sub disable_uploads {
     my ($req, $toggle) = @_;
-    $req->APR::Request::disable_uploads($req->pool) if $toggle;
+    $req->SUPER::disable_uploads if $toggle;
 }
 
 1;

Modified: httpd/apreq/trunk/glue/perl/t/response/TestApReq/request.pm
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/t/response/TestApReq/request.pm?rev=164688&r1=164687&r2=164688&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/t/response/TestApReq/request.pm (original)
+++ httpd/apreq/trunk/glue/perl/t/response/TestApReq/request.pm Mon Apr 25 
16:35:00 2005
@@ -17,7 +17,7 @@
 my $data;
 
 sub hook {
-    my ($upload, $buffer, $len, $hook_data) = @_;
+    my ($upload, $buffer, $len) = @_;
     warn "$upload saw EOS" and return unless defined $buffer;
 
     die "BAD UPLOAD ARGS" unless length $buffer == $len;

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.xs
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.xs?rev=164688&r1=164687&r2=164688&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.xs (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Request.xs Mon Apr 25 
16:35:00 2005
@@ -188,7 +188,6 @@
 SV*
 disable_uploads(req)
     APR::Request req
-    APR::Pool pool
   PREINIT:
     apreq_hook_t *h;
     apr_status_t s;