SI/dumper.pm
changeset 17 d4942418a9ea
parent 16 fd87c1e3b451
child 19 d12753b246fd
--- a/SI/dumper.pm	Tue Jan 19 23:45:54 2010 +0100
+++ b/SI/dumper.pm	Tue Jan 19 23:48:10 2010 +0100
@@ -9,17 +9,19 @@
 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;
-
-	system("fsck -f -C0 $volume->{name}");
-	die "ERR: fsck failed\n" if $? > 2;
+    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");
+        system("fsck -f -C0 $volume->{name}");
+        die "ERR: fsck failed\n" if $? > 2;
+
+        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");
     }
 }