From c7d6130922eeb1dd93d5098ec32d8a83b5f13eef Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 8 Aug 2005 02:51:03 +0000
Subject: catch error earlier (bugzilla #16993) (doesn't really fix the pb as
 wanted in bugzilla report, but i've not time for it)

---
 perl-install/bootloader.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 4e5ab621f..4f3cf87bc 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1245,6 +1245,7 @@ sub grub2dev_and_file {
     my ($grub_file, $grub2dev, $o_block_device) = @_;
     my ($grub_dev, $rel_file) = $grub_file =~ m!\((.*?)\)/?(.*)! or return;
     my ($hd, $part) = split(',', $grub_dev);
+    $grub2dev->{$hd} or internal_error("$hd has no mapping in device.map (when translating $grub_file)");
     $part = $o_block_device ? '' : defined $part && $part + 1; #- grub wants "(hdX,Y)" where lilo just want "hdY+1"
     my $device = '/dev/' . $grub2dev->{$hd} . $part;
     $device, $rel_file;
-- 
cgit v1.2.1