SI/mbr.pm
changeset 13 2e3ad71484ea
parent 10 23dd30396607
child 17 d4942418a9ea
--- 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>;
 	}
 }