[Catalyst-commits] r8467 - Catalyst-Engine-HTTPEngine/trunk/lib/Catalyst/Engine

andyg at dev.catalyst.perl.org andyg at dev.catalyst.perl.org
Sun Sep 28 23:48:55 BST 2008


Author: andyg
Date: 2008-09-28 23:48:55 +0100 (Sun, 28 Sep 2008)
New Revision: 8467

Modified:
   Catalyst-Engine-HTTPEngine/trunk/lib/Catalyst/Engine/HTTPEngine.pm
Log:
Need to inherit from C::Engine for finalize_error and finalize_uploads

Modified: Catalyst-Engine-HTTPEngine/trunk/lib/Catalyst/Engine/HTTPEngine.pm
===================================================================
--- Catalyst-Engine-HTTPEngine/trunk/lib/Catalyst/Engine/HTTPEngine.pm	2008-09-28 22:46:28 UTC (rev 8466)
+++ Catalyst-Engine-HTTPEngine/trunk/lib/Catalyst/Engine/HTTPEngine.pm	2008-09-28 22:48:55 UTC (rev 8467)
@@ -9,6 +9,7 @@
 # * Lots of test failures
 
 use Moose;
+extends 'Catalyst::Engine';
 
 use Data::Dump qw(dump);
 use HTTP::Engine;
@@ -172,16 +173,9 @@
     $c->request->uploads( $c->{_ereq}->uploads );
 }
 
-sub finalize_uploads {
-    my ( $self, $c ) = @_;
+# finalize_uploads, from Catalyst::Engine
 
-    my $request = $c->request;
-    foreach my $key (keys %{ $request->uploads }) {
-        my $upload = $request->uploads->{$key};
-        unlink grep { -e $_ } map { $_->tempname }
-          (ref $upload eq 'ARRAY' ? @{$upload} : ($upload));
-    }
-}
+# finalize_error, from Catalyst::Engine
 
 sub finalize_cookies {
     my ( $self, $c ) = @_;
@@ -202,6 +196,8 @@
     $c->{_eres}->body( $c->response->body );
 }
 
+# XXX: write is broken
+
 sub unescape_uri {
     my ( $self, $str ) = @_;
 




More information about the Catalyst-commits mailing list