equal
deleted
inserted
replaced
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"; |
6 use if $ENV{DEBUG} ~~ q(mbr) => "Smart::Comments"; |
7 |
7 |
|
8 use SI::tools; |
|
9 |
8 sub save($\%) { |
10 sub save($\%) { |
9 my ($file, $devices) = @_; |
11 my ($file, $devs) = @_; |
10 |
12 |
11 |
13 |
12 foreach my $disk (keys %{$devices->{disks}}) { |
14 foreach my $disk (keys %{$devs->{disks}}) { |
|
15 verbose("saving mbr of $disk\n"); |
13 open((my $o), $_ = sprintf(">$file", basename($disk))) or die "Can't open $_: $!\n"; |
16 open((my $o), $_ = sprintf(">$file", basename($disk))) or die "Can't open $_: $!\n"; |
14 local $/ = \512; |
17 local $/ = \512; |
15 |
18 |
16 open(my $in, $disk) or die "Can't open $disk: $!\n"; |
19 open(my $in, $disk) or die "Can't open $disk: $!\n"; |
17 print $o $_ = <$in>; |
20 print $o $_ = <$in>; |