fixed problem caused by moving the command execution into a separate

[spider.git] / perl / client.pl

diff --git a/perl/client.pl b/perl/client.pl
index 3227195747d5dcfd347cbd800bc40c957ebe71f3..5b35ee2dc83fb98c236d9f0055766f93eaf973de 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -52,7 +52,7 @@ sub cease
        if ($conn && $sendz) {
                $conn->send_now("Z$call|bye...\n");
        }
-       $stdout->flush;
+       $stdout->flush if $stdout;
        kill(15, $pid) if $pid;
        sleep(1);
        exit(0);        
@@ -395,3 +395,4 @@ for (;;) {
        }
 }
 
+exit(0);