bk commit into 5.0 tree (msvensson:1.2572)

[msvensson]

Below is the list of changes that have just been committed into a local
5.0 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, 2007-11-02 13:22:27+01:00, msvensson@shellback.(none) +2 -0
  Allow more than one "normal charecter" in the do-test

  mysql-test/lib/My/SafeProcess.pm@stripped, 2007-11-02 13:22:24+01:00, msvensson@shellback.(none) +1 -0
    Fix warning about undefined variable

  mysql-test/lib/mtr_cases.pl@stripped, 2007-11-02 13:22:24+01:00, msvensson@shellback.(none) +1 -1
    Allow more than one "normal charecter" in the do-test

diff -Nrup a/mysql-test/lib/My/SafeProcess.pm b/mysql-test/lib/My/SafeProcess.pm
--- a/mysql-test/lib/My/SafeProcess.pm	2007-11-02 10:27:07 +01:00
+++ b/mysql-test/lib/My/SafeProcess.pm	2007-11-02 13:22:24 +01:00
@@ -124,6 +124,7 @@ sub new {
 
   my %opts=
     (
+     verbose     => 0,
      @_
     );
 
diff -Nrup a/mysql-test/lib/mtr_cases.pl b/mysql-test/lib/mtr_cases.pl
--- a/mysql-test/lib/mtr_cases.pl	2007-11-02 10:27:06 +01:00
+++ b/mysql-test/lib/mtr_cases.pl	2007-11-02 13:22:24 +01:00
@@ -30,7 +30,7 @@ my $skip_test;
 sub init_pattern {
   my ($from, $what)= @_;
   return undef unless defined $from;
-  if ( $from =~ /^[a-z0-9]$/ ) {
+  if ( $from =~ /^[a-z0-9].*$/ ) {
     # Does not contain any regex, make the pattern match
     # beginning of string
     $from= "^$from";