]> git.etc.gen.nz Git - spong.git/commitdiff
left out a undef $client in listen_form_queries()
authorStephen L Johnson <sjohnson@monsters.org>
Wed, 5 Apr 2000 03:58:06 +0000 (03:58 +0000)
committerStephen L Johnson <sjohnson@monsters.org>
Wed, 5 Apr 2000 03:58:06 +0000 (03:58 +0000)
src/spong-server.pl

index a3cfcbedbea590a5de6c7004d46294caed506d2a..3a74b7f8738b2a11f5f62f07aa62ce94e979a590 100755 (executable)
@@ -470,11 +470,13 @@ sub listen_for_queries {
          if( $query eq "grp-summary" ) { &show_grp_summary( @args, $other ); }
          if( $query eq "grp-problems" ) { &show_grp_problems( @args, $other ); }
 
+         close $client;
          undef $client;
-         select $output;
          exit;
 
       } # End of kid processing
+   } continue {
+      undef $client;   # We don't need this any more
    }
 }