X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;fp=perl%2FMsg.pm;h=b355845d1196ebccb13fbfa0636f996bc40e7050;hb=fc8f1ff871c72c96e597c2d2ded8f7028eb7196f;hp=61974b962160173f02e671c7986fe1ab6dbf148c;hpb=65c97626719e49d6c8cc04669af4289dd00e8e94;p=spider.git

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;