projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
force disconnect on attempt 2
[spider.git]
/
perl
/
Msg.pm
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;