From fc8f1ff871c72c96e597c2d2ded8f7028eb7196f Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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.34.1