diff -r de0a25512844 -r 7d7ca3f05f25 SI/mbr.pm
--- a/SI/mbr.pm	Wed Jan 20 21:42:28 2010 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,25 +0,0 @@
-package SI::mbr;
-
-use strict;
-use warnings;
-use File::Basename;
-use IO::File;
-use if $ENV{DEBUG} ~~ q(mbr) => "Smart::Comments";
-
-use SI::tools;
-
-sub save($\%) {
-    my ($file, $devs) = @_;
-
-    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;
-        my $in = new IO::File $disk or die "Can't open $disk: $!\n";
-        print $o $_ = <$in>;
-    }
-}
-
-1;