From b7a0598517688e82d2996a22a09aac67a911ba8f Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 8 Jun 2001 19:46:03 +0000 Subject: [PATCH] fix incoming PC18's --- perl/DXProt.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 813b89ce..f4c932a8 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -607,7 +607,8 @@ sub normal my $node = Route::Node::get($self->{call}); my @rout; for ($node->nodes) { - push @rout, $_->del_node; + my $r = Route::Node::get($_); + push @rout, $r->del_node if $r; } $self->route_pc21(@rout, $node); $self->send_local_config(); -- 2.43.0