utils/mkdir-p: check if dir exists also after mkdir failed

[openssl.git] / util / mkdir-p.pl

diff --git a/util/mkdir-p.pl b/util/mkdir-p.pl
index 4f44266802c041a8a885e85f689c9196cad949be..328060243f3c5ad18f30803ce3716cc1cdfe86fe 100755 (executable)
--- a/util/mkdir-p.pl
+++ b/util/mkdir-p.pl
@@ -33,6 +33,12 @@ sub do_mkdir_p {
     do_mkdir_p($parent);
   }
 
-  mkdir($dir, 0777) || die "Cannot create directory $dir: $!\n";
+  unless (mkdir($dir, 0777)) {
+    if (-d $dir) {
+      # We raced against another instance doing the same thing.
+      return;
+    }
+    die "Cannot create directory $dir: $!\n";
+  }
   print "created directory `$dir'\n";
 }