From 2b1effd2030d9b989e86928b3b7a2eb7e4d8def0 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 15 Jun 2001 12:01:05 +0000 Subject: [PATCH] skip filtered out PC19s --- perl/DXProt.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 99c2ef82..0f41db46 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -654,6 +654,8 @@ sub normal if ($self->in_filter_route($r)) { $ar = $parent->add($call, $ver, $flags); push @rout, $ar if $ar; + } else { + next; } } if ($r->version ne $ver || $r->flags != $flags) { @@ -668,6 +670,8 @@ sub normal if ($self->in_filter_route($new)) { my $r = $parent->add($call, $ver, $flags); push @rout, $r; + } else { + next; } } -- 2.43.0