X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=8687a4943d446c920152a73b9657ae7a0ce5c1fc;hb=9128a77e1390d3ad788470aaf73a7ce6f9c64c78;hp=6b7d1b949bf363a5c640e2405fef3d38e0e95fec;hpb=63b5e2134b2ffba051682618f88b09d5ee5457c7;p=spider.git

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;