equal
deleted
inserted
replaced
9 |
9 |
10 sub save($\%) { |
10 sub save($\%) { |
11 my ($file, $devs) = @_; |
11 my ($file, $devs) = @_; |
12 |
12 |
13 |
13 |
14 foreach my $disk (keys %{$devs->{disks}}) { |
14 foreach my $disk (keys %{$devs->{disk}}) { |
15 verbose("saving mbr of $disk\n"); |
15 verbose("saving mbr of $disk\n"); |
16 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"; |
17 local $/ = \512; |
17 local $/ = \512; |
18 |
18 |
19 open(my $in, $disk) or die "Can't open $disk: $!\n"; |
19 open(my $in, $disk) or die "Can't open $disk: $!\n"; |