--- a/si	Wed Jan 20 22:31:34 2010 +0100
+++ b/si	Wed Jan 20 23:10:26 2010 +0100
@@ -45,10 +45,9 @@
     $dir =~ s/\/+/\//g;
 
     rmtree($dir);
-    mkpath(map { "$dir/$_" } qw(info ptable lvm blkid mbr dump),
-        { verbose => 1 });
+    mkpath([map { "$dir/$_" } qw(info ptable lvm blkid mbr dump)]);
 
-    warn grep { -l && readlink =~ /\/.*-$sys_id$/ } glob("$opt_base");
+    #print grep { -l && readlink =~ /\/.*-$sys_id$/ } glob("$opt_base");
 
     SI::ptable::volumes("$dir/ptable/%s", %devices);
     die Dumper \%devices if $opt_exit =~ /ptable/;