diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-03-10 13:24:55 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-03-10 13:24:55 +0000 |
| commit | 3e9f740e5efcace5ef8ce6998aeacdb1c42df3ca (patch) | |
| tree | 83a245f54b8cfc292bd678403a340ef327bf2cc1 /perl-install | |
| parent | ee37fa44cfc585d0cbd287e23d315894d7198115 (diff) | |
| download | drakx-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.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} ]; } |