aboutsummaryrefslogtreecommitdiff
path: root/openssl/util/mkdir-p.pl
diff options
context:
space:
mode:
Diffstat (limited to 'openssl/util/mkdir-p.pl')
-rw-r--r--openssl/util/mkdir-p.pl34
1 files changed, 34 insertions, 0 deletions
diff --git a/openssl/util/mkdir-p.pl b/openssl/util/mkdir-p.pl
new file mode 100644
index 000000000..e73d02b07
--- /dev/null
+++ b/openssl/util/mkdir-p.pl
@@ -0,0 +1,34 @@
+#!/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";
+}