branch | 2010-01-17 |
changeset 10 | 23dd30396607 |
parent 7 | 03ca6d811a17 |
child 13 | 2e3ad71484ea |
--- a/SI/mbr.pm Sat Jan 16 23:53:50 2010 +0100 +++ b/SI/mbr.pm Sun Jan 17 12:13:47 2010 +0100 @@ -11,7 +11,7 @@ my ($file, $devs) = @_; - foreach my $disk (keys %{$devs->{disks}}) { + 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;