diff options
Diffstat (limited to 'deps/openssl/openssl/util/mkdir-p.pl')
-rwxr-xr-x | deps/openssl/openssl/util/mkdir-p.pl | 18 |
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"; } |