X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXProtHandle.pm;fp=perl%2FDXProtHandle.pm;h=9e0f5ec4adb111ccf81f159a6368049cce558926;hp=10a5fe726c4fad8336505ebee7ee272c1df060f8;hb=fee8c4eabda49d4c7440ce1075ea49dcd9c2e825;hpb=b191e3a6b0672d6111fd1c803dd5efa1c296ae0f

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 10a5fe72..9e0f5ec4 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1433,7 +1433,7 @@ sub check_pc9x_t
 		# the id on it is completely unreliable. Besides, only commands
 		# originating on this box will go through this code...
 		if ($parent->call ne $main::mycall) {
-			my $lastid = $parent->lastid->{$pc} || 0;
+			my $lastid = $parent->lastid || 0;
 			if ($t < $lastid) {
 				if ($t+86400-$lastid > $pc9x_past_age) {
 					dbg("PCPROT: dup id on $t <= $lastid, ignored") if isdbg('chanerr');
@@ -1453,7 +1453,7 @@ sub check_pc9x_t
 	} elsif ($create) {
 		$parent = Route::Node->new($call);
 	}
-	$parent->lastid->{$pc} = $t if $parent;
+	$parent->lastid($t) if $parent;
 
 	return $parent;
 }