]> dxcluster.org Git - spider.git/commitdiff
fix disappeared messages
authorminima <minima>
Tue, 10 Apr 2001 07:33:31 +0000 (07:33 +0000)
committerminima <minima>
Tue, 10 Apr 2001 07:33:31 +0000 (07:33 +0000)
perl/DXProt.pm

index 6b7d1b949bf363a5c640e2405fef3d38e0e95fec..8687a4943d446c920152a73b9657ae7a0ce5c1fc 100644 (file)
@@ -1701,8 +1701,8 @@ sub disconnect
        
        # create a list of all the nodes that have gone and delete them from the table
        my @nodes;
-       foreach my $node (grep { $_->dxchan == $self } DXNode::get_all) {
-               next if $node->dxchancall eq $call;
+       foreach my $node (grep { $_->dxchancall eq $call } DXNode::get_all) {
+               next if $node->call eq $call;
                next if $node->call eq $main::mycall;
                push @nodes, $node->call;
                $node->del;