package partition_table_empty; # $Id: partition_table_empty.pm,v 1.3 2000/10/13 10:27:47 fpons Exp $










@ISA = qw(partition_table_raw);

use common qw(:common :system :file);
use partition_table_raw;
use partition_table;
use c;


sub read($$) {
    my ($hd, $sector) = @_;
    my $tmp;

    my $magic = "\0" x 512;

    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, length $magic or die "error reading magic number";
    $tmp eq $magic or die "bad magic number";

    partition_table_raw::zero_MBR($hd);

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

1;
