mirror of
https://github.com/MariaDB/server.git
synced 2026-05-14 19:07:15 +02:00
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
This commit is contained in:
parent
b7c8385e05
commit
f9fa3b7a3f
1 changed files with 3 additions and 2 deletions
|
|
@ -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));
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue