add exit to Aliases

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index c099a92c4163050ebe63ad157296a9f2dccfa2b5..6bdb85cf617d08be72d155af7911c572544b3474 100644 (file)
--- 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;
 }