X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FApache%2FMP13.pm;h=9198b502a34208bd9addf1922b629984ee9c5b53;hb=6bd2b72cca4b754f154ed1eca98151ac390d9cb5;hp=5dd759a1269605df3fb8698afb92aeed216da83a;hpb=22a23d068c57f321287f804100066c250b850199;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine/Apache/MP13.pm b/lib/Catalyst/Engine/Apache/MP13.pm
index 5dd759a..9198b50 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::MP13 - Catalyst Apache MP1.3 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