--- a/SI/mbr.pm Mon Jan 18 20:35:27 2010 +0100
+++ b/SI/mbr.pm Sun Jan 17 13:54:10 2010 +0100
@@ -3,6 +3,7 @@
use strict;
use warnings;
use File::Basename;
+use IO::File;
use if $ENV{DEBUG} ~~ q(mbr) => "Smart::Comments";
use SI::tools;
@@ -14,9 +15,9 @@
foreach my $disk (keys %{$devs->{disk}}) {
verbose("saving mbr of $disk\n");
open((my $o), $_ = sprintf(">$file", basename($disk))) or die "Can't open $_: $!\n";
+
local $/ = \512;
-
- open(my $in, $disk) or die "Can't open $disk: $!\n";
+ my $in = new IO::File $disk or die "Can't open $disk: $!\n";
print $o $_ = <$in>;
}
}