X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FApache%2FMP19.pm;h=89761a8c6f1c50adfd12cf418985f2ef82978129;hb=329a7e51e457b3cd30d88ddea13c596cff298d55;hp=1c26d1162e2a8c32e87568e4e29a245e9c96a6d7;hpb=111728e3d4b1ebfa3e80ec469d03616a45571fa1;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine/Apache/MP19.pm b/lib/Catalyst/Engine/Apache/MP19.pm
index 1c26d11..89761a8 100644
--- a/lib/Catalyst/Engine/Apache/MP19.pm
+++ b/lib/Catalyst/Engine/Apache/MP19.pm
@@ -19,7 +19,7 @@ Apache::Const->import( -compile => ':common' );
 
 =head1 NAME
 
-Catalyst::Engine::Apache::MP2 - Catalyst Apache MP2 Engine
+Catalyst::Engine::Apache::MP19 - Catalyst Apache MP19 Engine
 
 =head1 SYNOPSIS
 
@@ -27,7 +27,7 @@ See L<Catalyst>.
 
 =head1 DESCRIPTION
 
-This is the Catalyst engine specialized for Apache mod_perl version 2.
+This is the Catalyst engine specialized for Apache mod_perl version 1.9x.
 
 =head1 OVERLOADED METHODS
 
@@ -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
@@ -75,8 +84,8 @@ sub prepare_uploads {
     my $c = shift;
 
     my @uploads;
-
-    for my $field ( $c->apache->upload ) {
+    
+    for my $field ( $c->request->param ) {
 
         for my $upload ( $c->apache->upload($field) ) {
 
@@ -91,7 +100,7 @@ sub prepare_uploads {
         }
     }
 
-    $c->req->_assign_values( $c->req->uploads, \@uploads );
+    $c->request->_assign_values( $c->req->uploads, \@uploads );
 }
 
 =back
@@ -103,6 +112,7 @@ L<Catalyst>, L<Catalyst::Engine>, L<Catalyst::Engine::Apache>.
 =head1 AUTHOR
 
 Sebastian Riedel, C<sri@cpan.org>
+Christian Hansen C<ch@ngmedia.com>
 
 =head1 COPYRIGHT