package partition_table_empty; # $Id: partition_table_empty.pm,v 1.5 2002/02/23 16:58:54 prigaux Exp $










@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";

    
    sysread F, $tmp, 512 or die "error reading magic number";
    $tmp eq substr($tmp, 0, 1) x 512 or die "bad magic number";

    partition_table_raw::zero_MBR($hd);

    $hd->{primary}{raw};
}

1;
