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