X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=a7ef30c2831a5d7e76665f079ad26b6dae6b7317;hb=5d2f2feddd2c756e43868f62f72b3c5033c3d3a7;hp=060fb48a860f63de95d0430f0788ed4b498ab3e5;hpb=6093d2517f8d7a50c112afa6e96d02726cd37aa1;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 060fb48a..a7ef30c2 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1155,13 +1155,10 @@ sub finish
 	$mref->stop_msg($call) if $mref;
 	
 	# broadcast to all other nodes that all the nodes connected to via me are gone
-	my @gonenodes = grep { $_->dxchan != $self && $_->dxchan != $me } DXNode::get_all();
-	my $node;
-	
-	foreach $node (@gonenodes) {
+	foreach my $node (grep { $_->dxchan == $self } DXNode::get_all) {
 		next if $node->call eq $call;
-		broadcast_ak1a(pc21($node->call, 'Gone') , $self) unless $self->{isolate}; 
-		$node->del();
+		next if $node->call eq $main::mycall;
+		broadcast_ak1a(pc21($node->call, 'Gone.'), $self) unless $self->{isolate};
 	}
 
 	# remove outstanding pings