fix warning message annoyance with FastCGI engine

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

diff --git a/lib/Catalyst/Engine/FastCGI.pm b/lib/Catalyst/Engine/FastCGI.pm
index 56eec8b..ba182d3 100644 (file)
--- a/lib/Catalyst/Engine/FastCGI.pm
+++ b/lib/Catalyst/Engine/FastCGI.pm
@@ -45,7 +45,7 @@ Options may also be specified;
 sub run {
     my ( $self, $class, $listen, $options ) = @_;
 
-    my $sock;
+    my $sock = 0;
     if ($listen) {
         my $old_umask = umask;
         unless ( $options->{leave_umask} ) {
@@ -102,7 +102,7 @@ sub run {
     while ( $request->Accept >= 0 ) {
         $proc_manager && $proc_manager->pm_pre_dispatch();
         $class->handle_request( env => \%env );
-        $proc_manager && $proc_manager->pm_pre_dispatch();
+        $proc_manager && $proc_manager->pm_post_dispatch();
     }
 }