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