--- a/SI/dumper.pm Wed Jan 20 21:42:28 2010 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,29 +0,0 @@
-package SI::dumper;
-
-use if $ENV{DEBUG} ~~ /dumper|all/ => "Smart::Comments";
-use strict;
-use warnings;
-use SI::tools;
-use File::Basename;
-
-sub dump($\%) {
- my ($file, $devs) = @_;
-
- foreach my $volume (
- map { { name => $_, %{ $devs->{volume}{$_} } } }
- keys %{ $devs->{volume} }
- )
- {
- next if !defined $volume->{type} or $volume->{type} !~ /^ext/i;
-
- verbose("dumping volume $volume->{name}");
- my $dumpdev = $volume->{name};
- my $of = sprintf $file, basename($volume->{name});
- run("dump -0 -z -f $of $dumpdev");
- verbose("\n");
- }
-}
-
-1;
-
-# vim:sts=4 sw=4 aw ai sm: