3090
3090
str_to_file(temp_file_path, ds_script.str, ds_script.length);
3092
3092
/* Format the "perl <filename>" command */
3093
my_snprintf(buf, sizeof(buf), "perl %s", temp_file_path);
3093
snprintf(buf, sizeof(buf), "perl %s", temp_file_path);
3095
3095
if (!(res_file= popen(buf, "r")) && command->abort_on_error)
3096
3096
die("popen(\"%s\", \"r\") failed", buf);