summaryrefslogtreecommitdiff
path: root/deps/openssl/openssl/util/mkdir-p.pl
diff options
context:
space:
mode:
Diffstat (limited to 'deps/openssl/openssl/util/mkdir-p.pl')
-rwxr-xr-xdeps/openssl/openssl/util/mkdir-p.pl18
1 files changed, 14 insertions, 4 deletions
diff --git a/deps/openssl/openssl/util/mkdir-p.pl b/deps/openssl/openssl/util/mkdir-p.pl
index e73d02b073..328060243f 100755
--- a/deps/openssl/openssl/util/mkdir-p.pl
+++ b/deps/openssl/openssl/util/mkdir-p.pl
@@ -1,6 +1,10 @@
-#!/usr/local/bin/perl
-
-# mkdir-p.pl
+#! /usr/bin/env perl
+# Copyright 1999-2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the OpenSSL license (the "License"). You may not use
+# this file except in compliance with the License. You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
# On some systems, the -p option to mkdir (= also create any missing parent
# directories) is not available.
@@ -29,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";
}