From: minima Date: Sun, 19 Jan 2003 02:42:05 +0000 (+0000) Subject: ignore empty PC16s X-Git-Tag: PRE-1-52~84 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=31fca8dfb43587fe8f7b6bb657bfa654e7a8566b;p=spider.git ignore empty PC16s --- 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