X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=fb6ba02a66dc8e1a805f7e23ecfdd68706e692a6;hb=e514a048764b07970b03e490b560de73c2489902;hp=52e7b3eda744774ad3e6f9ce673c4214d4e1faaa;hpb=f811f3e99bb81aaeed8949cf56fe435181b0814f;p=spider.git 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; }