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';