make sure only 'full' PC16s have any effect

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 66434a0e723bf9ca89d748b79da3402cffa2a712..095b130580ce2760f32607dbb2fafc7d43d53566 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -645,7 +645,7 @@ 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}) {
+                               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
@@ -916,7 +916,8 @@ sub normal
                                                }
                                        } 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;
                                        }
                                }