bk commit into 5.1 tree (msvensson:1.2596)

[msvensson]

Below is the list of changes that have just been committed into a local
5.1 repository of msvensson.  When msvensson does a push these changes
will be propagated to the main repository and, within 24 hours after the
push, to the public repository.
For information on how to access the public repository
see http://dev.mysql.com/doc/mysql/en/installing-source-tree.html

ChangeSet@stripped, 2008-04-25 10:51:11+02:00, msvensson@stripped +1 -0
  Only allow "suitename" to be used as a aptch if it has at least one
  directory part
   

  mysql-test/lib/mtr_cases.pm@stripped, 2008-04-25 10:51:04+02:00, msvensson@stripped
+6 -1
    Only allow "suitename" to be used as a aptch if it has at least one
    directory part
     

diff -Nrup a/mysql-test/lib/mtr_cases.pm b/mysql-test/lib/mtr_cases.pm
--- a/mysql-test/lib/mtr_cases.pm	2008-04-24 14:15:13 +02:00
+++ b/mysql-test/lib/mtr_cases.pm	2008-04-25 10:51:04 +02:00
@@ -52,6 +52,7 @@ sub collect_option {
 }
 
 use File::Basename;
+use File::Spec::Functions qw / splitdir /;
 use IO::File();
 use My::Config;
 use My::Platform;
@@ -249,8 +250,12 @@ sub collect_one_suite($)
   my $suitedir= "$::glob_mysql_test_dir"; # Default
   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;
+      mtr_report(" - from '$suitedir'");
+
     }
     else
     {