From: minima Date: Fri, 15 Jun 2001 12:01:05 +0000 (+0000) Subject: skip filtered out PC19s X-Git-Url: http://dxcluster.net/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; } }