diff options
Diffstat (limited to 'crypto/openssl/util/mkdir-p.pl')
-rwxr-xr-x | crypto/openssl/util/mkdir-p.pl | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/crypto/openssl/util/mkdir-p.pl b/crypto/openssl/util/mkdir-p.pl deleted file mode 100755 index e73d02b..0000000 --- a/crypto/openssl/util/mkdir-p.pl +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/local/bin/perl - -# mkdir-p.pl - -# On some systems, the -p option to mkdir (= also create any missing parent -# directories) is not available. - -my $arg; - -foreach $arg (@ARGV) { - $arg =~ tr|\\|/|; - &do_mkdir_p($arg); -} - - -sub do_mkdir_p { - local($dir) = @_; - - $dir =~ s|/*\Z(?!\n)||s; - - if (-d $dir) { - return; - } - - if ($dir =~ m|[^/]/|s) { - local($parent) = $dir; - $parent =~ s|[^/]*\Z(?!\n)||s; - - do_mkdir_p($parent); - } - - mkdir($dir, 0777) || die "Cannot create directory $dir: $!\n"; - print "created directory `$dir'\n"; -} |