SI/mbr.pm
changeset 17 d4942418a9ea
parent 13 2e3ad71484ea
--- a/SI/mbr.pm	Tue Jan 19 23:45:54 2010 +0100
+++ b/SI/mbr.pm	Tue Jan 19 23:48:10 2010 +0100
@@ -9,17 +9,17 @@
 use SI::tools;
 
 sub save($\%) {
-	my ($file, $devs) = @_;
-	
+    my ($file, $devs) = @_;
 
-	foreach my $disk (keys %{$devs->{disk}}) {
-		verbose("saving mbr of $disk\n");
-		open((my $o), $_ = sprintf(">$file", basename($disk))) or die "Can't open $_: $!\n";
+    foreach my $disk (keys %{ $devs->{disk} }) {
+        verbose("saving mbr of $disk\n");
+        open((my $o), $_ = sprintf(">$file", basename($disk)))
+          or die "Can't open $_: $!\n";
 
-		local $/ = \512;
-		my $in = new IO::File $disk or die "Can't open $disk: $!\n";
-		print $o $_ = <$in>;
-	}
+        local $/ = \512;
+        my $in = new IO::File $disk or die "Can't open $disk: $!\n";
+        print $o $_ = <$in>;
+    }
 }
 
 1;