fix the double annoucement of disconnection of nodes?

diff --git a/Changes b/Changes
index 5da4f7b3899571feb9904d18fd8d9abd00833274..95a06473328534080dcfbd440ced43c378e0ce59 100644 (file)
--- 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 8ee77084fd0a339f70f05912cb5b75e129e71b95..736cab4d41d1a58496cb0b7bfcb305dec26f557d 100644 (file)
--- 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")));
        }