PT-1554 Test a fix for query-digest checksums

This commit is contained in:
Carlos Salguero
2018-05-24 15:50:22 -03:00
parent 285588546d
commit b6040629cd

View File

@@ -2679,7 +2679,7 @@ sub any_unix_timestamp {
sub make_checksum {
my ( $val ) = @_;
my $checksum = uc substr(md5_hex($val), -32);
my $checksum = uc substr(md5_hex($val), -16);
warn ($checksum, ' checksum for ', $val);
PTDEBUG && _d($checksum, 'checksum for', $val);
return $checksum;