X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=6bdb85cf617d08be72d155af7911c572544b3474;hb=07b08c6f048732431ae45b34463387f17d68b823;hp=c099a92c4163050ebe63ad157296a9f2dccfa2b5;hpb=d4c958444110a264159a982ca6d7bdeb80defabb;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index c099a92c..6bdb85cf 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1662,7 +1662,7 @@ sub disconnect
 	
 	# broadcast to all other nodes that all the nodes connected to via me are gone
 	foreach my $node (grep { $_->dxchan == $self } DXNode::get_all) {
-		next if $node->call eq $call;
+#		next if $node->call eq $call;
 		next if $node->call eq $main::mycall;
 		broadcast_ak1a(pc21($node->call, 'Gone.'), $self) unless $self->{isolate};
 		$node->del;
@@ -1681,8 +1681,6 @@ sub disconnect
 	$self->tell_login('logoutn');
 
 	Log('DXProt', $call . " Disconnected");
-	my $ref = DXCluster->get_exact($call);
-	$ref->del() if $ref;
 
 	$self->SUPER::disconnect;
 }