From 2a39cb7fe81a46b5d227c0e02857463b93678cfa Mon Sep 17 00:00:00 2001 From: djk Date: Sun, 21 Nov 1999 16:55:29 +0000 Subject: [PATCH] added a possibly spurious conn->disconnect to client --- perl/client.pl | 4 ++++ 1 file changed, 4 insertions(+) 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); } -- 2.43.0