From: minima Date: Tue, 10 Apr 2001 07:33:31 +0000 (+0000) Subject: fix disappeared messages X-Git-Tag: R_1_47~38 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=9128a77e1390d3ad788470aaf73a7ce6f9c64c78;p=spider.git fix disappeared messages --- diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 6b7d1b94..8687a494 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -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;