diff options
author | Sergei Petrunia <psergey@askmonty.org> | 2019-06-21 14:20:03 +0300 |
---|---|---|
committer | Sergei Petrunia <psergey@askmonty.org> | 2019-06-21 14:20:03 +0300 |
commit | 75833ef9c51e3a2cc57fea048e55ed5670df7b0d (patch) | |
tree | 7ba6c5ba600c7f51c8f39ea6a6ef3733a8c663be | |
parent | 821b866b5502511fe6fcba9503c5eb5790c393a9 (diff) | |
parent | 8d24f4e35d466cc70322b0593ba02d850a394826 (diff) | |
download | mariadb-git-75833ef9c51e3a2cc57fea048e55ed5670df7b0d.tar.gz |
Merge branch '10.2' of github.com:MariaDB/server into 10.2
-rw-r--r-- | client/mysqltest.cc | 10 | ||||
-rwxr-xr-x | mysql-test/mysql-test-run.pl | 2 |
2 files changed, 11 insertions, 1 deletions
diff --git a/client/mysqltest.cc b/client/mysqltest.cc index 16c0f684c0b..7c46bd194c5 100644 --- a/client/mysqltest.cc +++ b/client/mysqltest.cc @@ -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"))) { diff --git a/mysql-test/mysql-test-run.pl b/mysql-test/mysql-test-run.pl index 9f1414d8d8b..68bd03ef5ca 100755 --- a/mysql-test/mysql-test-run.pl +++ b/mysql-test/mysql-test-run.pl @@ -366,6 +366,8 @@ main(); sub main { + $ENV{MTR_PERL}=$^X; + # Default, verbosity on report_option('verbose', 0); |