From e7b397ec5856952525490fbd473c1d4e58946cd2 Mon Sep 17 00:00:00 2001
From: epg <>
Date: Sun, 25 Apr 2004 21:55:32 +0000
Subject: [PATCH] (mkfolder): Simplify.

---
 minc | 21 +++++----------------
 1 file changed, 5 insertions(+), 16 deletions(-)

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): $!");
     }
 }
 
-- 
2.56.0