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.43.0