From: minima Date: Mon, 25 Jun 2001 20:11:30 +0000 (+0000) Subject: fix pc24 a bit more even X-Git-Url: http://dxcluster.net/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; }