projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
65c9762
)
force disconnect on attempt 2
author
Dirk Koopman
<djk@tobit.co.uk>
Sun, 19 Apr 2020 20:33:07 +0000
(21:33 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Sun, 19 Apr 2020 20:33:07 +0000
(21:33 +0100)
perl/Msg.pm
patch
|
blob
|
history
diff --git
a/perl/Msg.pm
b/perl/Msg.pm
index 61974b962160173f02e671c7986fe1ab6dbf148c..b355845d1196ebccb13fbfa0636f996bc40e7050 100644
(file)
--- a/
perl/Msg.pm
+++ b/
perl/Msg.pm
@@
-256,7
+256,7
@@
sub disconnect
my $dbg = isdbg('connll');
my ($pkg, $fn, $line) = caller if $dbg;
my $dbg = isdbg('connll');
my ($pkg, $fn, $line) = caller if $dbg;
- if ($count > 2) {
+ if ($count >
=
2) {
dbg((ref $conn) . "::disconnect on call $conn->{call} attempt $conn->{disconnecting} called from ${pkg}::${fn} line $line FORCING CLOSE ") if $dbg;
_close_it($conn);
return;
dbg((ref $conn) . "::disconnect on call $conn->{call} attempt $conn->{disconnecting} called from ${pkg}::${fn} line $line FORCING CLOSE ") if $dbg;
_close_it($conn);
return;