Tell the writer object when we're done.

diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 1ec860d..84450c4 100644 (file)
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -72,6 +72,10 @@ sub finalize_body {
     else {
         $self->write( $c, $body );
     }
+
+    $self->_writer->close;
+
+    return;
 }
 
 =head2 $self->finalize_cookies($c)

diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm
index 9bcf2b5..ae5e3ab 100644 (file)
--- a/lib/Catalyst/Test.pm
+++ b/lib/Catalyst/Test.pm
@@ -226,20 +226,6 @@ Simulate a request using L<HTTP::Request::AsCGI>.
 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, @_);