database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-07-29 05:21:33 +03:00
Code Activity

MDEV-19821 "perl;" snippet must run the same perl executable that runs mtr.

Browse Source
This commit is contained in:
Vladislav Vaintroub
2019-06-21 12:02:40 +02:00
parent c631bd7f10
commit 8d24f4e35d
2 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
client/mysqltest.cc
View File

@ -4643,8 +4643,16 @@ void do_perl(struct st_command *command)
str_to_file(temp_file_path, ds_script.str, ds_script.length);
/* Use the same perl executable as the one that runs mysql-test-run.pl */
const char *mtr_perl=getenv("MTR_PERL");
if (!mtr_perl)
mtr_perl="perl";
/* Format the "perl <filename>" command */
my_snprintf(buf, sizeof(buf), "perl %s", temp_file_path);
if (strchr(mtr_perl, ' '))
my_snprintf(buf, sizeof(buf), "\"%s\" %s", mtr_perl, temp_file_path);
else
my_snprintf(buf, sizeof(buf), "%s %s", mtr_perl, temp_file_path);
if (!(res_file= my_popen(buf, "r")))
{

2
mysql-test/mysql-test-run.pl
View File

@ -366,6 +366,8 @@ main();
sub main {
$ENV{MTR_PERL}=$^X;
# Default, verbosity on
report_option('verbose', 0);