changed examples in Cookbook.pod
Christian Hansen [Wed, 23 Mar 2005 04:54:48 +0000 (04:54 +0000)]
lib/Catalyst/Manual/Cookbook.pod

index 0ed84d3..d4641fc 100644 (file)
@@ -291,14 +291,7 @@ a normal, single-shot CGI script.
 
     my $request = FCGI::Request();
     while ($request->Accept() >= 0) {
-        my $output;
-       { 
-           local(*STDOUT);
-           open( STDOUT, '>', \$output );
-           MyApp->run;
-       }
-       $output =~ s!^HTTP/\d+.\d+ \d\d\d.*?\n!!s;
-       print $output;
+        MyApp->run;
     }
 
 Any initialization code should be included outside the request-accept loop.
@@ -362,13 +355,8 @@ run.
             # PP-specific initialization code
         }
     }
-    { 
-       local(*STDOUT);
-       open( STDOUT, '>', \$output );
-       MyApp->run;
-    }
-    $output =~ s!^HTTP/\d+.\d+ \d\d\d.*?\n!!s;
-    print $output;
+
+    MyApp->run;
 
 For more information see the C<PersistentPerl> documentation.