From 743d0338dd4ebf095be93b441425b283a20406dc Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 22 Jun 2001 19:16:40 +0000 Subject: [PATCH] try to fix init problems --- Changes | 2 ++ perl/DXProt.pm | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index e1bf878c..51a48e5f 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +21Jun01======================================================================= +1. fix (some) problems with 'init' 16Jun01======================================================================= 1. fix talk 2. fix stat/msg diff --git a/perl/DXProt.pm b/perl/DXProt.pm index f72fe890..152a5fe0 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -1449,7 +1449,7 @@ sub send_local_config # and are not themselves isolated, this to make sure that isolated nodes # don't appear outside of this node my @dxchan = grep { $_->call ne $main::mycall && $_->call ne $self->{call} } DXChannel::get_all_nodes(); - @localnodes = map { Route::Node::get($_->{call}) or die "connot find node $_->{call}" } @dxchan if @dxchan; + @localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan if @dxchan; my @intcalls = map { $_->nodes } @localnodes if @localnodes; my $ref = Route::Node::get($self->{call}); my @rnodes = $ref->nodes; -- 2.43.0