httpd-apreq-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From j...@apache.org
Subject svn commit: r293122 - in /httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request: Apache2/Apache2.pm CGI/CGI.pm Error/Error.pm
Date Sun, 02 Oct 2005 14:32:51 GMT
Author: joes
Date: Sun Oct  2 07:32:45 2005
New Revision: 293122

URL: http://svn.apache.org/viewcvs?rev=293122&view=rev
Log:
s/require/use/ and drop useless upload() 
from APR::Request::CGI.

Modified:
    httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Apache2/Apache2.pm
    httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/CGI/CGI.pm
    httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Error/Error.pm

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Apache2/Apache2.pm
URL: http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Apache2/Apache2.pm?rev=293122&r1=293121&r2=293122&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Apache2/Apache2.pm (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Apache2/Apache2.pm Sun Oct  2 07:32:45
2005
@@ -1,2 +1,2 @@
-require APR::Request;
+use APR::Request;
 push @ISA, "APR::Request";

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/CGI/CGI.pm
URL: http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/CGI/CGI.pm?rev=293122&r1=293121&r2=293122&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/CGI/CGI.pm (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/CGI/CGI.pm Sun Oct  2 07:32:45 2005
@@ -1,29 +1,3 @@
-require APR::Request;
+use APR::Request;
 use APR::Pool;
 push @ISA, "APR::Request";
-
-sub upload {
-    my $req = shift;
-    my $body = $req->body;
-    $body->param_class("APR::Request::CGI::Upload");
-    if (@_) {
-        return grep {$_->upload} $body->get(shift) if wantarray;
-        for ($body->get(shift)) {
-            return $_ if $_->upload;
-        }
-    }
-    return map {$_->upload ? $_->name : () } values %$body;
-}
-
-
-package APR::Request::CGI::Upload;
-use APR::Request::Param;
-push our @ISA, "APR::Request::Param";
-
-sub type {}
-sub filename {}
-sub link {}
-sub fh {}
-sub tempname {}
-sub io {}
-sub slurp {}

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Error/Error.pm
URL: http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Error/Error.pm?rev=293122&r1=293121&r2=293122&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Error/Error.pm (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Error/Error.pm Sun Oct  2 07:32:45 2005
@@ -1,3 +1,4 @@
+use APR::Request;
 use APR::Error;
 our @ISA = qw/APR::Error APR::Request/;
 



Mime
View raw message