diff options
| author | Horst.Hunger <horst.hunger@sun.com> | 2010-06-03 10:31:26 +0200 |
|---|---|---|
| committer | Horst.Hunger <horst.hunger@sun.com> | 2010-06-03 10:31:26 +0200 |
| commit | 5c6a9a5f6fb1c57ad99ac3a14a56ade38684d631 (patch) | |
| tree | ff20520bff51f1745ee6283bc0cb6a605f21ea75 /mysql-test/lib/mtr_misc.pl | |
| parent | 20fc48fc38f18b3ad246e171224f23562f59a355 (diff) | |
| download | mariadb-git-5c6a9a5f6fb1c57ad99ac3a14a56ade38684d631.tar.gz | |
Patch for bug#52913 including all review results and changes of date format.
Diffstat (limited to 'mysql-test/lib/mtr_misc.pl')
| -rw-r--r-- | mysql-test/lib/mtr_misc.pl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/mysql-test/lib/mtr_misc.pl b/mysql-test/lib/mtr_misc.pl index 97eb693b52e..32960d866ce 100644 --- a/mysql-test/lib/mtr_misc.pl +++ b/mysql-test/lib/mtr_misc.pl @@ -149,6 +149,28 @@ sub mtr_exe_maybe_exists (@) { # # NOTE! More specific paths should be given before less specific. +# +sub mtr_pl_maybe_exists (@) { + my @path= @_; + + map {$_.= ".pl"} @path if IS_WINDOWS; + foreach my $path ( @path ) + { + if(IS_WINDOWS) + { + return $path if -f $path; + } + else + { + return $path if -x $path; + } + } + return ""; +} + + +# +# NOTE! More specific paths should be given before less specific. # For example /client/debug should be listed before /client # sub mtr_exe_exists (@) { |