From: Stephen L Johnson <sjohnson@monsters.org>
Date: Wed, 5 Apr 2000 03:58:06 +0000 (+0000)
Subject: left out a undef $client in listen_form_queries()
X-Git-Tag: spong-2_7-alpha5~19
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=adf2fa9761b5af89066b88119b906f2d074aa8ef;p=spong.git

left out a undef $client in listen_form_queries()
---

diff --git a/src/spong-server.pl b/src/spong-server.pl
index a3cfcbe..3a74b7f 100755
--- a/src/spong-server.pl
+++ b/src/spong-server.pl
@@ -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
    }
 }