[Catalyst-commits] r12563 - Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2010-01-09 17:48:45 +0000 (Sat, 09 Jan 2010)
New Revision: 12563

Modified:
   Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst/Engine.pm
   Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst/Test.pm
Log:
Tell the writer object when we're done.

Modified: Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst/Engine.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst/Engine.pm	2010-01-09 17:48:38 UTC (rev 12562)
+++ Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst/Engine.pm	2010-01-09 17:48:45 UTC (rev 12563)
@@ -72,6 +72,10 @@
     else {
         $self->write( $c, $body );
     }
+
+    $self->_writer->close;
+
+    return;
 }
 
 =head2 $self->finalize_cookies($c)

Modified: Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst/Test.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst/Test.pm	2010-01-09 17:48:38 UTC (rev 12562)
+++ Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst/Test.pm	2010-01-09 17:48:45 UTC (rev 12563)
@@ -226,20 +226,6 @@
 sub local_request {
     my $app = shift;
 
-=for reference
-    require HTTP::Request::AsCGI;
-
-    my $request = Catalyst::Utils::request( shift(@_) );
-    _customize_request($request, @_);
-    my $cgi     = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
-
-    $class->handle_request( env => \%ENV );
-
-    my $response = $cgi->restore->response;
-    $response->request( $request );
-    return $response;
-=cut
-
     my $request = Catalyst::Utils::request(shift);
     _customize_request($request, @_);