--- nfo/perl/libs/Data/Transfer/Sync.pm	2002/12/19 01:07:16	1.10
+++ nfo/perl/libs/Data/Transfer/Sync.pm	2002/12/23 07:10:59	1.11
@@ -1,4 +1,4 @@
-##    $Id: Sync.pm,v 1.10 2002/12/19 01:07:16 joko Exp $
+##    $Id: Sync.pm,v 1.11 2002/12/23 07:10:59 joko Exp $
 ##
 ##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>
 ##
@@ -6,6 +6,9 @@
 ##
 ##    ----------------------------------------------------------------------------------------
 ##    $Log: Sync.pm,v $
+##    Revision 1.11  2002/12/23 07:10:59  joko
+##    + using MD5 for checksum generation again - the 32-bit integer hash from DBI seems to be too lazy
+##
 ##    Revision 1.10  2002/12/19 01:07:16  joko
 ##    + fixed output done via $logger
 ##
@@ -715,10 +718,15 @@
     #$logger->dump( __PACKAGE__ . ": " . $dump );
   
   # calculate checksum from dump
+    # note: the 32-bit integer hash from DBI seems 
+    # to generate duplicates with small payloads already in ranges of hundreds of items/rows!!!
+    # try to avoid to use it or try to use it only for payloads greater than, hmmm, let's say 30 chars?
+    # (we had about 15 chars average per item (row))
+
     # md5-based fingerprint, base64 encoded (from Digest::MD5)
-      #my $checksum_cur = md5_base64($objdump) . '==';
+      $self->{node}->{$descent}->{checksum} = md5_base64($dump) . '==';
     # 32-bit integer "hash" value (maybe faster?) (from DBI)
-      $self->{node}->{$descent}->{checksum} = DBI::hash($dump, 1);
+      #$self->{node}->{$descent}->{checksum} = DBI::hash($dump, 1);
 
   # signal good
   return 1;