From: minima <minima>
Date: Fri, 15 Jun 2001 12:01:05 +0000 (+0000)
Subject: skip filtered out PC19s
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b1effd2030d9b989e86928b3b7a2eb7e4d8def0;p=spider.git

skip filtered out PC19s
---

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;
 					}
 				}