# 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}) {
+ if (my $nl = $pc19list{$ncall} && @field > 2) {
# this is a new (remembered) node, now attach it to me if it isn't in filtered
# and we haven't disallowed it
}
} else {
$pc19list{$call} = [] unless exists $pc19list{$call};
- push @{$pc19list{$call}}, [$self->{call}, $ver, $flags];
+ my $nl = $pc19list{$call};
+ push @{$pc19list{$call}}, [$self->{call}, $ver, $flags] unless grep $_->[0] eq $self->{call}, @$nl;
}
}