From 6576774b51d50acd12174dbdc3f6b01df953a516 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bodo=20M=C3=B6ller?= <bodo@openssl.org>
Date: Mon, 7 Jun 1999 13:33:50 +0000
Subject: mkdir -p is not fully portable (according to Marc Crispin, NeXTstep
 creates a directory called -p); now mkdir-p.pl does its job.

---
 util/mkdir-p.pl | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 util/mkdir-p.pl

(limited to 'util/mkdir-p.pl')

diff --git a/util/mkdir-p.pl b/util/mkdir-p.pl
new file mode 100755
index 0000000000..2c003d6e84
--- /dev/null
+++ b/util/mkdir-p.pl
@@ -0,0 +1,33 @@
+#!/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) {
+  &do_mkdir_p($arg);
+}
+
+
+sub do_mkdir_p {
+  local($dir) = @_;
+
+  $dir =~ s|/*$||;
+
+  if (-d $dir) {
+    return;
+  }
+
+  if ($dir =~ /\//) {
+    local($parent) = $dir;
+    $parent =~ s|[^/]*$||;
+
+    do_mkdir_p($parent);
+  }
+
+  mkdir($dir, 0777) || die "Cannot create directory $dir: $!\n";
+  print "created directory $dir\n";
+}
-- 
cgit v1.2.3