From 9128a77e1390d3ad788470aaf73a7ce6f9c64c78 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 10 Apr 2001 07:33:31 +0000
Subject: [PATCH] fix disappeared messages

---
 perl/DXProt.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
-- 
2.34.1