From f811f3e99bb81aaeed8949cf56fe435181b0814f Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 25 Jun 2001 18:08:08 +0000 Subject: [PATCH] improve the pc24 fix --- perl/DXProt.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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]); } -- 2.43.0