From a2209da449ca021d680ba1a5c8986a9aa9759f4d Mon Sep 17 00:00:00 2001
From: Sveta Smirnova <sveta.smirnova@percona.com>
Date: Fri, 2 Feb 2024 00:16:27 +0300
Subject: [PATCH] PT-2295 - Fix tests on distributions

- Typos in pt-kill
---
 bin/pt-kill           | 2 --
 t/pt-stalk/pt-stalk.t | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/bin/pt-kill b/bin/pt-kill
index af5e2b82..a47e574c 100755
--- a/bin/pt-kill
+++ b/bin/pt-kill
@@ -7182,8 +7182,6 @@ sub main {
                     || $error =~ m/Server has gone away/
                     || $error =~ m/Lost connection to server/
                     || $error =~ m/Lost connection to MySQL server/ ) {
-                  eval {
-                  eval {
                   eval {
                      $dbh      = $cxn->connect();
                      $proc_sth = $dbh->prepare('SHOW FULL PROCESSLIST');
diff --git a/t/pt-stalk/pt-stalk.t b/t/pt-stalk/pt-stalk.t
index 5fe0b26b..09b87b2f 100644
--- a/t/pt-stalk/pt-stalk.t
+++ b/t/pt-stalk/pt-stalk.t
@@ -507,7 +507,7 @@ is(
    $output,
    0,
    "Retention test 3: tests, matched auto-generated patern, are removed"
-);
+) or diag(`ls -l $dest`);
 
 # ###########################################################################
 # Test if retention by size works as expected