Browse Source

mtr.pl v2

- extend debug prints for "permission denied"
pull/374/head
Magnus Svensson 17 years ago
parent
commit
66bf048dd3
  1. 19
      mysql-test/lib/My/File/Path.pm

19
mysql-test/lib/My/File/Path.pm

@ -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";

Loading…
Cancel
Save