X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FApache%2FMP19.pm;h=8ced4e87b317db6bd08a21ec672666908e97065a;hb=b9e9fff6b976cb138c6d56f10c37ebc20216b74f;hp=a14718a390cbd700862201328c3c6a84a6c5eb6e;hpb=06e1b6164a2c9d7b463f358b0d1934ef83a82845;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Engine/Apache/MP19.pm b/lib/Catalyst/Engine/Apache/MP19.pm index a14718a..8ced4e8 100644 --- a/lib/Catalyst/Engine/Apache/MP19.pm +++ b/lib/Catalyst/Engine/Apache/MP19.pm @@ -67,6 +67,15 @@ sub handler : method { shift->SUPER::handler(@_); } +=item $c->prepare_request($r) + +=cut + +sub prepare_request { + my ( $c, $r ) = @_; + $c->apache( Apache::Request->new($r) ); +} + =item $c->prepare_uploads =cut @@ -74,8 +83,11 @@ sub handler : method { sub prepare_uploads { my $c = shift; - my @uploads; + # This is a workaround for a know bug with libapreq <= 2.0.5 + # http://svn.apache.org/viewcvs.cgi?rev=122925&view=rev + my @uploads; + for my $field ( $c->request->param ) { for my $upload ( $c->apache->upload($field) ) { @@ -94,15 +106,6 @@ sub prepare_uploads { $c->request->_assign_values( $c->req->uploads, \@uploads ); } -=item $c->prepare_request($r) - -=cut - -sub prepare_request { - my ( $c, $r ) = @_; - $c->apache( Apache::Request->new($r) ); -} - =back =head1 SEE ALSO @@ -112,6 +115,7 @@ L, L, L. =head1 AUTHOR Sebastian Riedel, C +Christian Hansen C =head1 COPYRIGHT