X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=fb6ba02a66dc8e1a805f7e23ecfdd68706e692a6;hb=b326a39e5cf429a4c8fe52026f937f7b011cbca2;hp=8bfd6c3e43d4525d01fbe7109577db14c11ae2d1;hpb=19980464653659320e9b143f3da34b38bb908cb9;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 8bfd6c3e..fb6ba02a 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -784,19 +784,16 @@ 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) {
-					return unless $self->in_filter_route($nref);
-					$self->route_pc24($nref, $field[3])
-				}
-				if ($uref) {
-					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;
 		}