fix incoming PC18's

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 813b89ced4f407e961e9342ebf15563cfa841b51..f4c932a81cfe35847ab354fa79c0a4b4b4174de9 100644 (file)
--- 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();