From e514a048764b07970b03e490b560de73c2489902 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 25 Jun 2001 20:11:30 +0000
Subject: [PATCH] fix pc24 a bit more even

---
 perl/DXProt.pm | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

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