diff -r df6ca24871d4 -r 03ca6d811a17 SI/mbr.pm --- a/SI/mbr.pm Fri Jan 15 23:17:23 2010 +0100 +++ b/SI/mbr.pm Sat Jan 16 23:53:50 2010 +0100 @@ -5,11 +5,14 @@ use File::Basename; use if $ENV{DEBUG} ~~ q(mbr) => "Smart::Comments"; +use SI::tools; + sub save($\%) { - my ($file, $devices) = @_; + my ($file, $devs) = @_; - foreach my $disk (keys %{$devices->{disks}}) { + foreach my $disk (keys %{$devs->{disks}}) { + verbose("saving mbr of $disk\n"); open((my $o), $_ = sprintf(">$file", basename($disk))) or die "Can't open $_: $!\n"; local $/ = \512;