Added Catalyst::Request::Upload

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Engine / Apache / MP1.pm

diff --git a/lib/Catalyst/Engine/Apache/MP1.pm b/lib/Catalyst/Engine/Apache/MP1.pm
index 7405269..6966e9e 100644 (file)
--- a/lib/Catalyst/Engine/Apache/MP1.pm
+++ b/lib/Catalyst/Engine/Apache/MP1.pm
@@ -73,15 +73,14 @@ sub prepare_uploads {
 
     for my $upload ( $c->apache->upload ) {
 
-        my $hash = {
-            fh       => $upload->fh,
+        my $object = Catalyst::Request::Upload->new(
             filename => $upload->filename,
             size     => $upload->size,
             tempname => $upload->tempname,
             type     => $upload->type
-        };
+        );
 
-        push( @uploads, $upload->name, $hash );
+        push( @uploads, $upload->name, $object );
     }
 
     $c->req->_assign_values( $c->req->uploads, \@uploads );