From 3e9f740e5efcace5ef8ce6998aeacdb1c42df3ca Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 10 Mar 2005 13:24:55 +0000
Subject: catch bad use of get_rawCHS()

---
 perl-install/partition_table/dos.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'perl-install')

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} ];
 }
-- 
cgit v1.2.1