From fc8f1ff871c72c96e597c2d2ded8f7028eb7196f Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sun, 19 Apr 2020 21:33:07 +0100 Subject: [PATCH] force disconnect on attempt 2 --- perl/Msg.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/Msg.pm b/perl/Msg.pm index 61974b96..b355845d 100644 --- 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; - 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; -- 2.43.0