From: minima Date: Mon, 25 Jun 2001 18:08:08 +0000 (+0000) Subject: improve the pc24 fix X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=f811f3e99bb81aaeed8949cf56fe435181b0814f;p=spider.git improve the pc24 fix --- diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 8bfd6c3e..52e7b3ed 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -784,16 +784,18 @@ sub normal if ($pcno == 24) { # set here status my $call = uc $field[1]; my ($nref, $uref); - $nref = Route::Node::get($call) && $nref->here($field[2]); - $uref = Route::User::get($call) && $uref->here($field[2]); + $nref = Route::Node::get($call); + $uref = Route::User::get($call); 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]); }