(mkfolder): Simplify.

diff --git a/minc b/minc
index 0a97be70f0542c18e1573afd674c8b31816297e8..f4e7d01ec82c3a6cc46f5d8e945fce223babc25d 100755 (executable)
--- a/minc
+++ b/minc
@@ -246,25 +246,14 @@ sub log_headers {
 # Utility procedures
 
 sub mkfolder {
 # Utility procedures
 
 sub mkfolder {

-    my $mhfolder = shift;
-    my $folder;
+    my $folder = shift;

     my $target;
     my $component;
 
     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): $!");

     }
 }
 
     }
 }