From 61b0cd36577df2a9f86cb2c08d14737f0bbcb557 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 23 Jul 2002 11:08:35 +0000 Subject: g Move 2: partition table: hierarchy --- perl-install/partition_table/empty.pm | 36 +++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 perl-install/partition_table/empty.pm (limited to 'perl-install/partition_table/empty.pm') diff --git a/perl-install/partition_table/empty.pm b/perl-install/partition_table/empty.pm new file mode 100644 index 000000000..e90991684 --- /dev/null +++ b/perl-install/partition_table/empty.pm @@ -0,0 +1,36 @@ +package partition_table::empty; # $Id$ + +#- this is a mainly dummy partition table. If we find it's empty, we just call - +#- zero_MBR which will take care of bless'ing us to the partition table type best +#- suited + + +use diagnostics; +use strict; +use vars qw(@ISA); + +@ISA = qw(partition_table::raw); + +use common; +use partition_table::raw; +use partition_table; +use c; + + +sub read($$) { + my ($hd, $sector) = @_; + my $tmp; + + local *F; partition_table::raw::openit($hd, *F) or die "failed to open device"; + c::lseek_sector(fileno(F), $sector, 0) or die "reading of partition in sector $sector failed"; + + #- check magic number + sysread F, $tmp, 512 or die "error reading magic number on disk $hd->{device}"; + $tmp eq substr($tmp, 0, 1) x 512 or die "bad magic number on disk $hd->{device}"; + + partition_table::raw::zero_MBR($hd); + + $hd->{primary}{raw}; +} + +1; -- cgit v1.2.1