SI/mbr.pm
changeset 7 03ca6d811a17
parent 6 df6ca24871d4
child 10 23dd30396607
--- 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;