From 4e9daf652dc564582a7c4d663de9764f3e79ae9b Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 8 Jan 2007 00:18:40 +0000
Subject: [PATCH 1/1] 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