1berry/MariaDB-server
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mtr.pl v2

Browse Source 
- extend debug prints for "permission denied"
This commit is contained in:
Magnus Svensson 2009-01-24 15:07:57 +01:00
parent bbdd0576ee
commit 66bf048dd3
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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