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