diff -r fd87c1e3b451 -r d4942418a9ea SI/mbr.pm --- 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;