diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/partition_table/dos.pm | 3 |
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} ]; } |