diff -r a1aee1136609 -r 2e3ad71484ea SI/mbr.pm --- 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>; } }