From: minima <minima>
Date: Mon, 25 Jun 2001 18:08:08 +0000 (+0000)
Subject: improve the pc24 fix
X-Git-Url: http://gb7djk.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]);
 				}