SI/mbr.pm
branch2010-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;