path: root/perl.prov

package partition_table::lvm_PV; # $Id$

use diagnostics;
use strict;

our @ISA = qw(partition_table::raw);

use partition_table::raw;
use c;

my $magic = "HM\1\0";
my $offset = 0;


#- Allows people having PVs on unpartitioned disks to install
#- (but no way to create such beasts)
#-
#- another way to handle them would be to ignore those disks,
#- but this would make those hds unshown in diskdrake,
#- disallowing to zero_MBR, clearing this PV


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

    my $F = partition_table::raw::openit($hd) or die "failed to open device";
    c::lseek_sector(fileno($F), $sector, $offset) or die "reading of partition in sector $sector failed";

    sysread $F, my $tmp, length $magic or die "error reading magic number on disk $hd->{file}";
    $tmp eq $magic or die "bad magic number on disk $hd->{file}";

    [];
}

sub write { 
    die "ERROR: should not be writing raw disk lvm PV!!";
}

sub clear_raw {
    die "ERROR: should not be creating new raw disk lvm PV!!";
}

1;