From 31fca8dfb43587fe8f7b6bb657bfa654e7a8566b Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 19 Jan 2003 02:42:05 +0000
Subject: [PATCH] ignore empty PC16s

---
 perl/DXProt.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 3ef7b075..118743e1 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -645,7 +645,11 @@ sub normal
 			# if there is a parent, proceed, otherwise if there is a latent PC19 in the PC19list, 
 			# fix it up in the routing tables and issue it forth before the PC16
 			unless ($parent) {
-				if (my ($nl = $pc19list{$ncall}) && @field > 2) {
+				my $nl = $pc19list{$ncall};
+
+				delete $pc19list{$ncall} if $nl;             # whatever happens - it goes 
+					
+				if ($nl && @field > 3) {                     # 3 because of the hop count!
 
 					# this is a new (remembered) node, now attach it to me if it isn't in filtered
 					# and we haven't disallowed it
@@ -659,8 +663,6 @@ sub normal
 						$user->node($ncall);
 					}
 
-					delete $pc19list{$ncall};             # whatever happens - it goes 
-					
 					my $wantpc19 = $user->wantroutepc19;
 					if ($wantpc19 || !defined $wantpc19) {
 						my $new = Route->new($ncall);          # throw away
-- 
2.34.1