SI/mbr.pm
changeset 6 df6ca24871d4
child 7 03ca6d811a17
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SI/mbr.pm	Fri Jan 15 23:17:23 2010 +0100
@@ -0,0 +1,21 @@
+package SI::mbr;
+
+use strict;
+use warnings;
+use File::Basename;
+use if $ENV{DEBUG} ~~ q(mbr) => "Smart::Comments";
+
+sub save($\%) {
+	my ($file, $devices) = @_;
+	
+
+	foreach my $disk (keys %{$devices->{disks}}) {
+		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";
+		print $o $_ = <$in>;
+	}
+}
+
+1;