summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-10 13:24:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-10 13:24:55 +0000
commit3e9f740e5efcace5ef8ce6998aeacdb1c42df3ca (patch)
tree83a245f54b8cfc292bd678403a340ef327bf2cc1 /perl-install
parentee37fa44cfc585d0cbd287e23d315894d7198115 (diff)
downloaddrakx-3e9f740e5efcace5ef8ce6998aeacdb1c42df3ca.tar
drakx-3e9f740e5efcace5ef8ce6998aeacdb1c42df3ca.tar.gz
drakx-3e9f740e5efcace5ef8ce6998aeacdb1c42df3ca.tar.bz2
drakx-3e9f740e5efcace5ef8ce6998aeacdb1c42df3ca.tar.xz
drakx-3e9f740e5efcace5ef8ce6998aeacdb1c42df3ca.zip
catch bad use of get_rawCHS()
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table/dos.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm
index 025dac4cb..8d8109723 100644
--- a/perl-install/partition_table/dos.pm
+++ b/perl-install/partition_table/dos.pm
@@ -33,6 +33,9 @@ sub last_usable_sector {
sub get_rawCHS {
my ($part) = @_;
+
+ exists $part->{start_cyl} or internal_error("get_rawCHS $part->{device}");
+
[ $part->{start_cyl}, $part->{start_head}, $part->{start_sec} ],
[ $part->{end_cyl}, $part->{end_head}, $part->{end_sec} ];
}