Fixed the fork and restart bug

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

diff --git a/lib/Catalyst/Engine/Test.pm b/lib/Catalyst/Engine/Test.pm
index fb487a1..452cc2d 100644 (file)
--- a/lib/Catalyst/Engine/Test.pm
+++ b/lib/Catalyst/Engine/Test.pm
@@ -83,7 +83,7 @@ sub run {
         $name = 'COOKIE' if $name eq 'COOKIES';
         $name =~ tr/-/_/;
         $name = 'HTTP_' . $name
-            unless $name =~ m/\A(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)\z/;
+          unless $name =~ m/\A(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)\z/;
         my $value = $request->header($header);
         if ( exists $ENV{$name} ) {
             $ENV{$name} .= "; $value";
@@ -114,7 +114,7 @@ sub run {
 
 =cut
 
-sub read_chunk { shift; shift->request->handle->read( @_ ); }
+sub read_chunk { shift; shift; *STDIN->read(@_); }
 
 =back