fix dedupe algorthim

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index b5d7568a2bcce44a92a42dd9b0e745597c69fd35..0010ab4504ce171983d2d7cf40311d85044608af 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1467,7 +1467,7 @@ sub check_pc9x_t
                                        return;
                                }
                        }
-                       if ($lastid == $t) {
+                       if ($lastid >= $t) {
                                dbg("PCPROT: dup id on $call = $lastid, ignored") if isdbg('chanerr');
                                return;
                        }

diff --git a/perl/Version.pm b/perl/Version.pm
index 5e5c54f01346831265aa3d367af49d39a37e1ab0..b63bf77fa0e25b0abc5165b14406992ae73662e9 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 = '63';
+$build = '64';
 
 1;