1
0
mirror of https://github.com/MariaDB/server.git synced 2025-07-29 05:21:33 +03:00

BUG#41959: mtr: error message when mkpath() fails and the file exists but is not directory

Problem: when mtr tries to create a directory, and the target
exists but is a file instead of directory, it tries several times
to create the directory again before it fails.
Fix: make it check if the target exists and is a non-directory.
This commit is contained in:
Sven Sandberg
2009-01-08 14:28:40 +01:00
parent ede652dbf4
commit 28a68906d1

View File

@ -61,6 +61,9 @@ sub rmtree {
sub mkpath {
my $path;
die "Usage: mkpath(<path>)" unless @_ == 1;
foreach my $dir ( File::Spec->splitdir( @_ ) ) {
#print "dir: $dir\n";
if ($dir =~ /^[a-z]:/i){
@ -72,8 +75,9 @@ sub mkpath {
$path= File::Spec->catdir($path, $dir);
#print "path: $path\n";
next if -d $path; # Path already exist
next if mkdir($path); # mkdir worked
next if -d $path; # Path already exists and is a directory
croak("File already exists but is not a directory: '$path'") if -e $path;
next if mkdir($path);
# mkdir failed, try one more time
next if mkdir($path);