--- a/lib/SI/dumper.pm	Wed Jan 20 22:31:34 2010 +0100
+++ b/lib/SI/dumper.pm	Wed Jan 20 23:10:26 2010 +0100
@@ -8,6 +8,7 @@
 
 sub dump($\%) {
     my ($file, $devs) = @_;
+    my $dumpdates = dirname($file) . "/dumpdates";
 
     foreach my $volume (
         map { { name => $_, %{ $devs->{volume}{$_} } } }
@@ -19,7 +20,7 @@
         verbose("dumping volume $volume->{name}");
         my $dumpdev = $volume->{name};
         my $of = sprintf $file, basename($volume->{name});
-        run("dump -0 -z -f $of $dumpdev");
+        run("dump -D $dumpdates -u -0 -z -f $of $dumpdev");
         verbose("\n");
     }
 }

--- 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/;