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
d5f2972628
commit
bb6e8b6942
@ -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…
x
Reference in New Issue
Block a user