From a31aa764b35315eda2caf3bd269db45fc56a9d66 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 24 Jan 2000 15:12:16 +0000 Subject: *** empty log message *** --- perl-install/partition_table_bsd.pm | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'perl-install/partition_table_bsd.pm') diff --git a/perl-install/partition_table_bsd.pm b/perl-install/partition_table_bsd.pm index c0af9cf48..13398e007 100644 --- a/perl-install/partition_table_bsd.pm +++ b/perl-install/partition_table_bsd.pm @@ -56,14 +56,6 @@ my $magic = 0x82564557; my $nb_primary = 8; my $offset = 0x40; -#- use default partition table adust functions. -sub adjustStart($$) { - &partition_table::adjustStart; -} -sub adjustEnd($$) { - &partition_table::adjustEnd; -} - sub read($$) { my ($hd, $sector) = @_; my $tmp; @@ -132,7 +124,7 @@ sub info { dtype => $hd->{device} =~ /^sd/ ? $dtype_scsi : $dtype_ST506, secsize => $common::SECTORSIZE, ncylinders => $hd->{geom}{cylinders}, - secpercyl => partition_table::cylinder_size($hd), + secpercyl => $hd->cylinder_size(), secprtunit => $hd->{geom}{totalsectors}, rpm => 3600, interleave => 1, -- cgit v1.2.1