added C::E::CGI::NPH

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

diff --git a/lib/Catalyst/Engine/FCGI.pm b/lib/Catalyst/Engine/FCGI.pm
index 0ee022b..10db5cf 100644 (file)
--- a/lib/Catalyst/Engine/FCGI.pm
+++ b/lib/Catalyst/Engine/FCGI.pm
@@ -31,14 +31,7 @@ sub run {
     my $class   = shift;
     my $request = FCGI::Request();
     while ( $request->Accept() >= 0 ) {
-        my $output;
-        {
-            local (*STDOUT);
-            open( STDOUT, '>', \$output );
-            $class->NEXT::run;
-        }
-        $output =~ s!^HTTP/\d+.\d+ \d\d\d.*?\n!!s;
-        print $output;
+        $class->handler;
     }
 }