From b51a81586ebf52195e587daf321eb7053a2de16e Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 3 Sep 2001 18:45:39 +0000
Subject: [PATCH] fix the double annoucement of disconnection of nodes?

---
 Changes        | 1 +
 perl/DXProt.pm | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/Changes b/Changes
index 5da4f7b3..95a06473 100644
--- a/Changes
+++ b/Changes
@@ -12,6 +12,7 @@ error messages) and fix set/iso on PC18 input.
 7. Improve stat/route_node and stat/route_user for diagnostics.
 8. strip top bit of comments in ann/spots.
 9. fix the announce filtering problem.
+10. Fix the double announcement of node disconnections?
 01Sep01=======================================================================
 1. Change build number calc (hopefully for the last time)
 27Aug01=======================================================================
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 8ee77084..736cab4d 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1726,6 +1726,8 @@ sub disconnect
 	my $pc39flag = shift;
 	my $call = $self->call;
 
+	return if $self->{disconnecting}++;
+	
 	unless ($pc39flag && $pc39flag == 1) {
 		$self->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', "System Op")));
 	}
-- 
2.34.1