summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table_raw.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-16 13:18:31 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-16 13:18:31 +0000
commit4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce (patch)
tree28974a4161d8a464d59781d76ebe52f98a8bc210 /perl-install/partition_table_raw.pm
parent70800fea4199313a755c9dda383941f30c3a572a (diff)
downloaddrakx-backup-do-not-use-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.tar
drakx-backup-do-not-use-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.tar.gz
drakx-backup-do-not-use-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.tar.bz2
drakx-backup-do-not-use-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.tar.xz
drakx-backup-do-not-use-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.zip
*** empty log message ***
Diffstat (limited to 'perl-install/partition_table_raw.pm')
-rw-r--r--perl-install/partition_table_raw.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm
index 45fbdd424..7b886a1f8 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -78,6 +78,7 @@ sub get_geometry($) {
local *F; sysopen F, $dev, 0 or return;
ioctl(F, c::HDIO_GETGEO(), $g) or return;
my %geom; @geom{qw(heads sectors cylinders start)} = unpack "CCSL", $g;
+ $geom{totalcylinders} = $geom{cylinders};
#- $geom{cylinders} is no good (only a ushort, that means less than 2^16 => at best 512MB)
if (my $total = c::total_sectors(fileno F)) {