From 2dd04e7992014e0240f4ebd5e1f8cc7db94df000 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 13 Mar 2005 11:36:03 +0000
Subject: don't die when we have no entries in grub menu.lst

---
 perl-install/bootloader.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 73f93cb3f..759b4833b 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -245,8 +245,10 @@ sub read_grub {
 
     $b{nowarn} = 1;
     # handle broken installkernel -r:
-    $b{default} = min($b{default}, scalar(@{$b{entries}}) - 1);
-    $b{default} = $b{entries}[$b{default}]{label};
+    if (@{$b{entries}}) {
+	$b{default} = min($b{default}, scalar(@{$b{entries}}) - 1);
+	$b{default} = $b{entries}[$b{default}]{label};
+    }
     $b{method} = 'grub';
 
     \%b;
-- 
cgit v1.2.1