bzr push into mysql-5.1 branch (msvensson:2724 to 2725)

[Magnus Svensson]

 2725 Magnus Svensson	2009-01-24
      mtr.pl v2
       - extend debug prints for "permission denied"
modified:
  mysql-test/lib/My/File/Path.pm

 2724 Magnus Svensson	2009-01-24
      WL#4189 mtr.pl v2
       - Clear test variables "comment" and "logfile" to make sure thay aren't
        already set from previous run of same test
       - Print warning if test result already set and set it anyway
modified:
  mysql-test/lib/mtr_report.pm
  mysql-test/mysql-test-run.pl

=== modified file 'mysql-test/lib/My/File/Path.pm'
--- a/mysql-test/lib/My/File/Path.pm	2009-01-24 12:00:50 +0000
+++ b/mysql-test/lib/My/File/Path.pm	2009-01-24 14:07:57 +0000
@@ -71,24 +71,25 @@ sub _mkpath_debug {
 
   print "-" x 40, "\n";
   my $dirname= dirname($path);
-  print "dirname: $dirname\n";
+  print "ls -l $dirname\n";
   print `ls -l $dirname`, "\n";
   print "-" x 40, "\n";
+  print "dir $dirname\n";
+  print `dir $dirname`, "\n";
+  print "-" x 40, "\n";
   my $dirname2= dirname($dirname);
-  print "dirname2: $dirname2\n";
+  print "ls -l $dirname2\n";
   print `ls -l $dirname2`, "\n";
   print "-" x 40, "\n";
+  print "dir $dirname2\n";
+  print `dir $dirname2`, "\n";
+  print "-" x 40, "\n";
   print "file exists\n" if (-e $path);
   print "file is a plain file\n" if (-f $path);
   print "file is a directory\n" if (-d $path);
   print "-" x 40, "\n";
-
-  if (IS_CYGWIN)
-  {
-    my $posix_path= Cygwin::win_to_posix_path($path);
-    print "trying to create using posix path: '$posix_path'\n";
-    mkdir($posix_path) or print "mkdir(posixpath) returned erro: $!\n";
-  }
+  print "showing handles for $path\n";
+  My::Handles::show_handles($path);
 
   print "=" x 40, "\n";