1 package SI::mbr;

     2 

     3 use strict;

     4 use warnings;

     5 use File::Basename;

     6 use IO::File;

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

     8 

     9 use SI::tools;

    10 

    11 sub save($\%) {

    12     my ($file, $devs) = @_;

    13 

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

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

    16         open((my $o), $_ = sprintf(">$file", basename($disk)))

    17           or die "Can't open $_: $!\n";

    18 

    19         local $/ = \512;

    20         my $in = new IO::File $disk or die "Can't open $disk: $!\n";

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

    22     }

    23 }

    24 

    25 1;