From 31fca8dfb43587fe8f7b6bb657bfa654e7a8566b Mon Sep 17 00:00:00 2001 From: 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.43.0