From bb6e8b6942333e523f50d3e0bdda7b61b9fff1da Mon Sep 17 00:00:00 2001
From: Bjorn Munch <Bjorn.Munch@sun.com>
Date: Mon, 7 Jun 2010 13:30:23 +0200
Subject: [PATCH] Bug #53374 Don't delete temporary perl file if perl fails
 Simple condition on the delete stmt But NB: next mtr run will clean up and
 remove the temp file

---
 client/mysqltest.cc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/client/mysqltest.cc b/client/mysqltest.cc
index 217428f7db3..a3ae0ebb18c 100644
--- a/client/mysqltest.cc
+++ b/client/mysqltest.cc
@@ -3785,8 +3785,9 @@ void do_perl(struct st_command *command)
     }
     error= pclose(res_file);
 
-    /* Remove the temporary file */
-    my_delete(temp_file_path, MYF(0));
+    /* Remove the temporary file, but keep it if perl failed */
+    if (!error)
+      my_delete(temp_file_path, MYF(0));
 
     handle_command_error(command, WEXITSTATUS(error));
   }