From ab0e418fffec1466313c4cdbf6429b0781589375 Mon Sep 17 00:00:00 2001
From: Brian Fraser <brian.fraser@percona.com>
Date: Thu, 1 Nov 2012 04:38:18 -0300
Subject: [PATCH] Fix for 1041391: Debug statement for Chosen hash func prints
 undef

---
 bin/pt-table-checksum | 4 ++--
 lib/RowChecksum.pm    | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/bin/pt-table-checksum b/bin/pt-table-checksum
index edc81a01..3f51194a 100755
--- a/bin/pt-table-checksum
+++ b/bin/pt-table-checksum
@@ -5281,7 +5281,7 @@ sub _get_hash_func {
       unshift @funcs, $func;
    }
 
-   my ($result, $error);
+   my $error;
    foreach my $func ( @funcs ) {
       eval {
          my $sql = "SELECT $func('test-string')";
@@ -5292,7 +5292,7 @@ sub _get_hash_func {
          $error .= qq{$func cannot be used because "$1"\n};
          PTDEBUG && _d($func, 'cannot be used because', $1);
       }
-      PTDEBUG && _d('Chosen hash func:', $result);
+      PTDEBUG && _d('Chosen hash func:', $func);
       return $func;
    }
    die $error || 'No hash functions (CRC32, MD5, etc.) are available';
diff --git a/lib/RowChecksum.pm b/lib/RowChecksum.pm
index cda58eda..0787ef7d 100644
--- a/lib/RowChecksum.pm
+++ b/lib/RowChecksum.pm
@@ -280,7 +280,7 @@ sub _get_hash_func {
       unshift @funcs, $func;
    }
 
-   my ($result, $error);
+   my $error;
    foreach my $func ( @funcs ) {
       eval {
          my $sql = "SELECT $func('test-string')";
@@ -291,7 +291,7 @@ sub _get_hash_func {
          $error .= qq{$func cannot be used because "$1"\n};
          PTDEBUG && _d($func, 'cannot be used because', $1);
       }
-      PTDEBUG && _d('Chosen hash func:', $result);
+      PTDEBUG && _d('Chosen hash func:', $func);
       return $func;
    }
    die $error || 'No hash functions (CRC32, MD5, etc.) are available';