blob: d460317f525b875d0c72cfc664ec79546ade4a2f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
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;
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";
#- check magic number
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;
|
