From: epg <>
Date: Sun, 25 Apr 2004 21:55:32 +0000 (+0000)
Subject: (mkfolder): Simplify.
X-Git-Url: https://diplodocus.org/git/minc/commitdiff_plain/e7b397ec5856952525490fbd473c1d4e58946cd2?hp=36ff1ab19c89098ebbd2976d51ae49ff844bf4e2

(mkfolder): Simplify.
---

diff --git a/minc b/minc
index 0a97be7..f4e7d01 100755
--- a/minc
+++ b/minc
@@ -246,25 +246,14 @@ sub log_headers {
 # Utility procedures
 
 sub mkfolder {
-    my $mhfolder = shift;
-    my $folder;
+    my $folder = shift;
     my $target;
     my $component;
 
-    $folder = $mh . '/' . $mhfolder;
-    $target = '';
-
-    if (not -d $folder) {
-        foreach $component (split('/', $folder)) {
-            if (defined($component) and length($component) >= 1) {
-                $target = $target . '/' . $component;
-                if (-d $target or mkdir($target)) {
-                    next;
-                } else {
-                    die("Failed to create +$mhfolder ($component)");
-                }
-            }
-        }
+    $target = $mh;
+    foreach $component (split('/', $folder)) {
+        $target = join('/', $target, $component);
+        -d $target or mkdir($target) or die("mkdir($target): $!");
     }
 }