From: djk Date: Sun, 21 Nov 1999 16:55:29 +0000 (+0000) Subject: added a possibly spurious conn->disconnect to client X-Git-Tag: R_1_35~6 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a39cb7fe81a46b5d227c0e02857463b93678cfa;p=spider.git added a possibly spurious conn->disconnect to client --- diff --git a/perl/client.pl b/perl/client.pl index 459c2632..9f39fdd1 100755 --- a/perl/client.pl +++ b/perl/client.pl @@ -53,6 +53,7 @@ sub cease my $sendz = shift; if ($conn && $sendz) { $conn->send_now("Z$call|bye...\n"); + sleep(1); } $stdout->flush if $stdout; if ($pid) { @@ -62,6 +63,9 @@ sub cease dbgclose(); # $SIG{__WARN__} = sub {my $a = shift; cluck($a); }; sleep(1); + + # do we need this ? + $conn->disconnect if $conn; exit(0); }