From b7a0598517688e82d2996a22a09aac67a911ba8f Mon Sep 17 00:00:00 2001
From: minima <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.34.1