1 package SI::mbr;

     1 package SI::mbr;

     2 

     2 

     3 use strict;

     3 use strict;

     4 use warnings;

     4 use warnings;

     5 use File::Basename;

     5 use File::Basename;

     6 use if $ENV{DEBUG} ~~ q(mbr) => "Smart::Comments";

     7 use if $ENV{DEBUG} ~~ q(mbr) => "Smart::Comments";

     7 

     8 

     8 use SI::tools;

     9 use SI::tools;

     9 

    10 

    10 sub save($\%) {

    11 sub save($\%) {

    12 	

    13 	

    13 

    14 

    14 	foreach my $disk (keys %{$devs->{disk}}) {

    15 	foreach my $disk (keys %{$devs->{disk}}) {

    15 		verbose("saving mbr of $disk\n");

    16 		verbose("saving mbr of $disk\n");

    16 		open((my $o), $_ = sprintf(">$file", basename($disk))) or die "Can't open $_: $!\n";

    17 		open((my $o), $_ = sprintf(">$file", basename($disk))) or die "Can't open $_: $!\n";

    17 		local $/ = \512;

    19 		local $/ = \512;

    20 		print $o $_ = <$in>;

    21 		print $o $_ = <$in>;

    21 	}

    22 	}

    22 }

    23 }

    23 

    24 

    24 1;

    25 1;