projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b0dc102
)
added a possibly spurious conn->disconnect to client
author
djk
<djk>
Sun, 21 Nov 1999 16:55:29 +0000
(16:55 +0000)
committer
djk
<djk>
Sun, 21 Nov 1999 16:55:29 +0000
(16:55 +0000)
perl/client.pl
patch
|
blob
|
history
diff --git
a/perl/client.pl
b/perl/client.pl
index 459c26323a34480131247918043d9124649962dd..9f39fdd135c42e22cc1a2249528e06edfaf6fdb4 100755
(executable)
--- 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);
}