diff --git a/bin/pt-table-checksum b/bin/pt-table-checksum
index c9eee68f..b0f3dbb3 100755
--- a/bin/pt-table-checksum
+++ b/bin/pt-table-checksum
@@ -5398,7 +5398,7 @@ sub _get_hash_func {
       unshift @funcs, $func;
    }
 
-   my ($result, $error);
+   my $error;
    foreach my $func ( @funcs ) {
       eval {
          my $sql = "SELECT $func('test-string')";
@@ -5410,7 +5410,7 @@ sub _get_hash_func {
          PTDEBUG && _d($func, 'cannot be used because', $1);
          next;
       }
-      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 3d095b5e..8c58b6fb 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')";
@@ -292,7 +292,7 @@ sub _get_hash_func {
          PTDEBUG && _d($func, 'cannot be used because', $1);
          next;
       }
-      PTDEBUG && _d('Chosen hash func:', $result);
+      PTDEBUG && _d('Chosen hash func:', $func);
       return $func;
    }
    die($error || 'No hash functions (CRC32, MD5, etc.) are available');