From 2b1effd2030d9b989e86928b3b7a2eb7e4d8def0 Mon Sep 17 00:00:00 2001
From: minima <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.34.1