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/;
