X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FFCGI.pm;h=07410fd9b2095a628c1100b3cb2c472003ee24e9;hb=6dc87a0f8301391acfe25ee5bcaad0fe48dad559;hp=0ee022b8e4c769ddfba964d3a24cfd7d79ed97b4;hpb=ffb41d946ec8e1158562d2504d3acd6e03b5f338;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine/FCGI.pm b/lib/Catalyst/Engine/FCGI.pm
index 0ee022b..07410fd 100644
--- a/lib/Catalyst/Engine/FCGI.pm
+++ b/lib/Catalyst/Engine/FCGI.pm
@@ -3,7 +3,6 @@ package Catalyst::Engine::FCGI;
 use strict;
 use base 'Catalyst::Engine::CGI';
 use FCGI;
-use NEXT;
 
 =head1 NAME
 
@@ -11,7 +10,19 @@ Catalyst::Engine::FCGI - Catalyst FCGI Engine
 
 =head1 SYNOPSIS
 
-See L<Catalyst>.
+A script using the Catalyst::Engine::FCGI module might look like:
+
+    #!/usr/bin/perl -w
+
+    BEGIN { 
+       $ENV{CATALYST_ENGINE} = 'FCGI';
+    }
+
+    use strict;
+    use lib '/path/to/MyApp/lib';
+    use MyApp;
+
+    MyApp->run;
 
 =head1 DESCRIPTION
 
@@ -31,14 +42,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;
     }
 }