From: minima <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;