X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fclient.pl;h=5b35ee2dc83fb98c236d9f0055766f93eaf973de;hb=b473fa8950fc9a6b747be44434569dec254b0897;hp=3227195747d5dcfd347cbd800bc40c957ebe71f3;hpb=3194378dfc13933cfaaae43989b971d8994d17aa;p=spider.git

diff --git a/perl/client.pl b/perl/client.pl
index 32271957..5b35ee2d 100755
--- 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);