From 4e9daf652dc564582a7c4d663de9764f3e79ae9b Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 8 Jan 2007 00:18:40 +0000 Subject: [PATCH] make sure multiple PC92 have the correct TS on them (!) --- perl/DXProtHandle.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index fc05280a..59c1351c 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1342,7 +1342,7 @@ sub gen_pc9x_t return $_last_time - $main::systime_daystart; } else { $_last_occurs++; - return sprintf "$_last_time.%02d", $_last_occurs; + return sprintf "%d.%02d", $_last_time - $main::systime_daystart, $_last_occurs; } } @@ -1395,8 +1395,7 @@ sub handle_92 return; } - my $parent = check_pc9x_t($pcall, $t, 92, 1); - return unless $parent; + my $parent = check_pc9x_t($pcall, $t, 92, 1) || return; $parent->lastid->{92} = $t; $parent->do_pc92(1); -- 2.43.0