WL#4189 Add retry logic to mkpath to avoid temporary permission denied problems

1 files changed, 30 insertions, 1 deletions

diff --git a/mysql-test/lib/My/File/Path.pm b/mysql-test/lib/My/File/Path.pm
index 4ec7fbac33d..eeb7546b0b8 100644
--- a/mysql-test/lib/My/File/Path.pm
+++ b/mysql-test/lib/My/File/Path.pm
@@ -22,8 +22,10 @@ our @EXPORT= qw / rmtree mkpath copytree /;
 
 use File::Find;
 use File::Copy;
+use File::Spec;
 use Carp;
 use My::Handles;
+use My::Platform;
 
 sub rmtree {
   my ($dir)= @_;
@@ -58,7 +60,34 @@ sub rmtree {
 
 
 sub mkpath {
-  goto &File::Path::mkpath;
+  my $path;
+  foreach my $dir ( File::Spec->splitdir( @_ ) ) {
+    #print "dir: $dir\n";
+    if ($dir =~ /^[a-z]:/i){
+      # Found volume ie. C:
+      $path= $dir;
+      next;
+    }
+
+    $path= File::Spec->catdir($path, $dir);
+    #print "path: $path\n";
+
+    next if -d $path; # Path already exist
+    next if mkdir($path); # mkdir worked
+
+    # mkdir failed, try one more time
+    next if mkdir($path);
+
+    # mkdir failed again, try two more time after sleep(s)
+    sleep(1);
+    next if mkdir($path);
+    sleep(1);
+    next if mkdir($path);
+
+    # Report failure and die
+    croak("Couldn't create directory '$path' ",
+	  " after 4 attempts and 2 sleep(1): $!");
+  }
 };