(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).

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index b1726e98a1f4ae6ac184374d497f3943c6132f07..c15f4939c551577f1ea4e34e19f824202265c8ab 100644 (file)
--- 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 886f453d94c9994e4a14cb204c1a2073688e7fbe..45c03f178e4628b88e832311a00ed1cfd8155136 100644 (file)
--- 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;