equal
deleted
inserted
replaced
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; |
|