From e514a048764b07970b03e490b560de73c2489902 Mon Sep 17 00:00:00 2001 From: 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