[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apreq-cvs
Subject:    svn commit: r164688 - in /httpd/apreq/trunk/glue/perl:
From:       joes () apache ! org
Date:       2005-04-25 23:35:02
Message-ID: 20050425233502.84619.qmail () minotaur ! apache ! org
[Download RAW message or body]

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;


[prev in list] [next in list] [prev in thread] [next in thread]