From f75747ffe264a0d71fa8b1fde2bc2abe88cb9a1b Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sun, 2 May 1999 17:46:07 +0000
Subject: [PATCH] fixed little buglet with can't ref hash {'0'}

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

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b446b713..45e9b30f 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -734,8 +734,9 @@ sub send_local_config
 		# and are not themselves isolated, this to make sure that isolated nodes
         # don't appear outside of this node
 		@nodes = DXNode::get_all();
-		@nodes = grep { $_->dxchan != $self && !$_->dxchan->{isolate} } @nodes;
 		@nodes = grep { $_->{call} ne $main::mycall } @nodes;
+		@nodes = grep { $_->dxchan != $self } @nodes if @nodes;
+		@nodes = grep { !$_->dxchan->{isolate} } @nodes if @nodes;
 		@localnodes = grep { $_->dxchan->{call} eq $_->{call} } @nodes if @nodes;
 		unshift @localnodes, DXCluster->get_exact($main::mycall);
 		@remotenodes = grep { $_->dxchan->{call} ne $_->{call} } @nodes if @nodes;
-- 
2.34.1