diff options
| author | Bjorn Munch <Bjorn.Munch@sun.com> | 2010-06-07 13:30:23 +0200 |
|---|---|---|
| committer | Bjorn Munch <Bjorn.Munch@sun.com> | 2010-06-07 13:30:23 +0200 |
| commit | f9fa3b7a3fe4846b32fc51e7e356ee6af25492ac (patch) | |
| tree | 30221608e092f238424ac06c75d55037c3a4e440 /client | |
| parent | b7c8385e05d139047e3f759bf6df45038050793b (diff) | |
| download | mariadb-git-f9fa3b7a3fe4846b32fc51e7e356ee6af25492ac.tar.gz | |
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
Diffstat (limited to 'client')
| -rw-r--r-- | client/mysqltest.cc | 5 |
1 files 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)); } |