From f75747ffe264a0d71fa8b1fde2bc2abe88cb9a1b Mon Sep 17 00:00:00 2001 From: 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.43.0