fix pc24 a bit more even

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 52e7b3eda744774ad3e6f9ce673c4214d4e1faaa..fb6ba02a66dc8e1a805f7e23ecfdd68706e692a6 100644 (file)
--- 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;
                }