diff options
author | Mystery Man <unknown@mandriva.org> | 2001-06-11 11:44:34 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2001-06-11 11:44:34 +0000 |
commit | 7507023403933bbd0d851a250a474f85ba6a89d2 (patch) | |
tree | c212a6c0eae5ed2c9964c390ebb72970ec08fd08 /perl-install/partition_table_empty.pm | |
parent | ab5559aaabd1167a18ac882e64d97c5adc0e7d03 (diff) | |
download | drakx-backup-do-not-use-7507023403933bbd0d851a250a474f85ba6a89d2.tar drakx-backup-do-not-use-7507023403933bbd0d851a250a474f85ba6a89d2.tar.gz drakx-backup-do-not-use-7507023403933bbd0d851a250a474f85ba6a89d2.tar.bz2 drakx-backup-do-not-use-7507023403933bbd0d851a250a474f85ba6a89d2.tar.xz drakx-backup-do-not-use-7507023403933bbd0d851a250a474f85ba6a89d2.zip |
This commit was manufactured by cvs2svn to create branch 'ppp'.topic/ppp
Diffstat (limited to 'perl-install/partition_table_empty.pm')
-rw-r--r-- | perl-install/partition_table_empty.pm | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/perl-install/partition_table_empty.pm b/perl-install/partition_table_empty.pm deleted file mode 100644 index a33798faf..000000000 --- a/perl-install/partition_table_empty.pm +++ /dev/null @@ -1,38 +0,0 @@ -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 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"; - - #- 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; |