summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-08 02:51:03 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-08 02:51:03 +0000
commitc7d6130922eeb1dd93d5098ec32d8a83b5f13eef (patch)
treef53c7c67072a00fe9613571ac6c5a1f216bb13d5 /perl-install
parentdcf279ab574ad88b6ea291945c2b098c009f7bd8 (diff)
downloaddrakx-backup-do-not-use-c7d6130922eeb1dd93d5098ec32d8a83b5f13eef.tar
drakx-backup-do-not-use-c7d6130922eeb1dd93d5098ec32d8a83b5f13eef.tar.gz
drakx-backup-do-not-use-c7d6130922eeb1dd93d5098ec32d8a83b5f13eef.tar.bz2
drakx-backup-do-not-use-c7d6130922eeb1dd93d5098ec32d8a83b5f13eef.tar.xz
drakx-backup-do-not-use-c7d6130922eeb1dd93d5098ec32d8a83b5f13eef.zip
catch error earlier (bugzilla #16993) (doesn't really fix the pb as wanted in bugzilla report, but i've not time for it)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm1
1 files changed, 1 insertions, 0 deletions
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;