SI/mbr.pm
changeset 28 7d7ca3f05f25
parent 27 de0a25512844
child 29 4e40cf0eba95
equal deleted inserted replaced
27:de0a25512844 28:7d7ca3f05f25
     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;