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:
Bjorn Munch 2010-06-07 13:30:23 +02:00
parent d5f2972628
commit bb6e8b6942

View File

@ -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));
}