Commit 66bf048d authored by Magnus Svensson's avatar Magnus Svensson

mtr.pl v2

 - extend debug prints for "permission denied"
parent bbdd0576
...@@ -71,24 +71,25 @@ sub _mkpath_debug { ...@@ -71,24 +71,25 @@ sub _mkpath_debug {
print "-" x 40, "\n"; print "-" x 40, "\n";
my $dirname= dirname($path); my $dirname= dirname($path);
print "dirname: $dirname\n"; print "ls -l $dirname\n";
print `ls -l $dirname`, "\n"; print `ls -l $dirname`, "\n";
print "-" x 40, "\n"; print "-" x 40, "\n";
print "dir $dirname\n";
print `dir $dirname`, "\n";
print "-" x 40, "\n";
my $dirname2= dirname($dirname); my $dirname2= dirname($dirname);
print "dirname2: $dirname2\n"; print "ls -l $dirname2\n";
print `ls -l $dirname2`, "\n"; print `ls -l $dirname2`, "\n";
print "-" x 40, "\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 exists\n" if (-e $path);
print "file is a plain file\n" if (-f $path); print "file is a plain file\n" if (-f $path);
print "file is a directory\n" if (-d $path); print "file is a directory\n" if (-d $path);
print "-" x 40, "\n"; print "-" x 40, "\n";
print "showing handles for $path\n";
if (IS_CYGWIN) My::Handles::show_handles($path);
{
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 "=" x 40, "\n"; print "=" x 40, "\n";
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment