From: djk <djk>
Date: Sun, 2 May 1999 17:46:07 +0000 (+0000)
Subject: fixed little buglet with can't ref hash {'0'}
X-Git-Tag: R_1_27~2
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=f75747ffe264a0d71fa8b1fde2bc2abe88cb9a1b;p=spider.git

fixed little buglet with can't ref hash {'0'}
---

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;