X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=152a5fe05bdb84510ae764028d57ce59106d0524;hb=743d0338dd4ebf095be93b441425b283a20406dc;hp=e184685bd7341e2c0bf55c517073fd8e34c42f1a;hpb=0ffe71875718dc280a5848660f158d0984a5fb46;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index e184685b..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; @@ -1488,7 +1488,7 @@ sub route # always send it down the local interface if available my $dxchan = DXChannel->get($call); unless ($dxchan) { - my $cl = Route::Node::get($call); + my $cl = Route::get($call); $dxchan = $cl->dxchan if $cl; if (ref $dxchan) { if (ref $self && $dxchan eq $self) {