From b51a81586ebf52195e587daf321eb7053a2de16e Mon Sep 17 00:00:00 2001 From: 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