From d971a36fcbff51756456391120d472efd82160d9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 9 Sep 2005 15:14:40 +0000
Subject: see if we have menu.lst first

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index e585aba34..07bcdd750 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -191,11 +191,11 @@ sub read_grub {
     my $global = 1;
     my ($e, %b);
 
-    my $grub2dev = read_grub_device_map();
-
     my $menu_lst_file = "$::prefix/boot/grub/menu.lst";
     -e $menu_lst_file or return;
 
+    my $grub2dev = read_grub_device_map();
+
     foreach (cat_($menu_lst_file)) {
         chomp;
 	s/^\s*//; s/\s*$//;
-- 
cgit v1.2.1