From: minima <minima>
Date: Mon, 25 Jun 2001 20:11:30 +0000 (+0000)
Subject: fix pc24 a bit more even
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=e514a048764b07970b03e490b560de73c2489902;p=spider.git

fix pc24 a bit more even
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 52e7b3ed..fb6ba02a 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -789,16 +789,11 @@ sub normal
 			return unless $nref || $uref;	# if we don't know where they are, it's pointless sending it on
 			
 			unless (eph_dup($line)) {
-				if ($nref) {
-					$nref->here($field[2]);
-					return unless $self->in_filter_route($nref);
-					$self->route_pc24($nref, $field[3])
-				}
-				if ($uref) {
-					$uref->here($field[2]);
-					return unless $self->in_filter_route($uref);
-					$self->route_pc24($uref, $field[3]);
-				}
+				$nref->here($field[2]) if $nref;
+				$uref->here($field[2]) if $uref;
+				my $ref = $nref || $uref;
+				return unless $self->in_filter_route($ref);
+				$self->route_pc24($ref, $field[3]);
 			}
 			return;
 		}