X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FApache%2FMP13.pm;h=a9a579484d604d5de3c7fcbeaaae4512d34c0ef7;hb=bfde09a29c9b25cca920350488ddda743a606031;hp=b7b9e74407ebfc6dec433e322e4c8534b97ab780;hpb=111728e3d4b1ebfa3e80ec469d03616a45571fa1;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine/Apache/MP13.pm b/lib/Catalyst/Engine/Apache/MP13.pm
index b7b9e74..a9a5794 100644
--- a/lib/Catalyst/Engine/Apache/MP13.pm
+++ b/lib/Catalyst/Engine/Apache/MP13.pm
@@ -12,7 +12,7 @@ Apache::Constants->import(':common');
 
 =head1 NAME
 
-Catalyst::Engine::Apache::MP1 - Catalyst Apache MP1 Engine
+Catalyst::Engine::Apache::MP13 - Catalyst Apache MP13 Engine
 
 =head1 SYNOPSIS
 
@@ -20,7 +20,7 @@ See L<Catalyst>.
 
 =head1 DESCRIPTION
 
-This is the Catalyst engine specialized for Apache mod_perl version 1.
+This is the Catalyst engine specialized for Apache mod_perl version 1.3x.
 
 =head1 OVERLOADED METHODS
 
@@ -62,6 +62,15 @@ sub handler ($$) {
     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
@@ -83,7 +92,7 @@ sub prepare_uploads {
         push( @uploads, $upload->name, $object );
     }
 
-    $c->req->_assign_values( $c->req->uploads, \@uploads );
+    $c->request->upload(@uploads);
 }
 
 =back
@@ -95,6 +104,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