From bdf68641f4da1ba7b9f370a1ec9a7f46bf0fead8 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 19 Nov 2007 01:09:27 +0000 Subject: [PATCH] (re)fix the final hole in the PC9x TS checking code Silly me, not bothering to simulate all possibilities. At least what is there now makes some sense (which it didn't before). --- perl/DXProtHandle.pm | 7 +++++++ perl/Version.pm | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index b1726e98..c15f4939 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1536,6 +1536,13 @@ sub check_pc9x_t } elsif ($t == $lastid) { dbg("PCPROT: dup id on $t == lastid $lastid, ignored") if isdbg('chanerr') || isdbg('pc92dedupe'); return undef; + } else { + # check that if we have a low number in lastid that yesterday's numbers + # (likely in the 85000+ area) don't override them, thus causing flip flopping + if ($lastid+86400-$t < $pc9x_past_age) { + dbg("PCPROT: dup id on $t in yesterday, lastid $lastid, ignored") if isdbg('chanerr') || isdbg('pc92dedupe'); + return undef; + } } } } diff --git a/perl/Version.pm b/perl/Version.pm index 886f453d..45c03f17 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '188'; +$build = '189'; 1; -- 2.34.1