summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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} ];
}