From b6040629cd392fd790f6444158f3d3e38826c996 Mon Sep 17 00:00:00 2001
From: Carlos Salguero <carlos.salguero@percona.com>
Date: Thu, 24 May 2018 15:50:22 -0300
Subject: [PATCH] PT-1554 Test a fix for query-digest checksums

---
 bin/pt-query-digest | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/pt-query-digest b/bin/pt-query-digest
index 12ffeaaf..3f5ee9f4 100755
--- a/bin/pt-query-digest
+++ b/bin/pt-query-digest
@@ -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;