mirror of
https://github.com/MariaDB/server.git
synced 2025-08-07 00:04:31 +03:00
Only allow "suitename" to be used as a aptch if it has at least one
directory part
This commit is contained in:
@@ -52,6 +52,7 @@ sub collect_option {
|
|||||||
}
|
}
|
||||||
|
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
|
use File::Spec::Functions qw / splitdir /;
|
||||||
use IO::File();
|
use IO::File();
|
||||||
use My::Config;
|
use My::Config;
|
||||||
use My::Platform;
|
use My::Platform;
|
||||||
@@ -249,8 +250,12 @@ sub collect_one_suite($)
|
|||||||
my $suitedir= "$::glob_mysql_test_dir"; # Default
|
my $suitedir= "$::glob_mysql_test_dir"; # Default
|
||||||
if ( $suite ne "main" )
|
if ( $suite ne "main" )
|
||||||
{
|
{
|
||||||
if ( -d $suite ){
|
# Allow suite to be path to "some dir" if $suite has at least
|
||||||
|
# one directory part
|
||||||
|
if ( -d $suite and splitdir($suite) > 1 ){
|
||||||
$suitedir= $suite;
|
$suitedir= $suite;
|
||||||
|
mtr_report(" - from '$suitedir'");
|
||||||
|
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
Reference in New Issue
Block a user