From d4a1d47fa08a8fa67e7cff99e6c4f41055762ea5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 3 Apr 2001 22:49:09 +0000
Subject: (suggest): trap strange error. Should not really fix the pb

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

(limited to 'perl-install/bootloader.pm')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index fd0ef7f61..7add5f1c6 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -296,11 +296,12 @@ wait %d seconds for default boot.
 		label => $isSecure || $isSMP ? 'linux-up' : 'linux-nonfb',
 		root  => "/dev/$root",
 	       }) if $isSecure || $isSMP || $vga_fb;
-    add_kernel($prefix, $lilo, $kernelVersion, '',
+    my $entry = add_kernel($prefix, $lilo, $kernelVersion, '',
 	       {
 		label => 'failsafe',
 		root  => "/dev/$root",
-	       })->{append} .= " failsafe" unless $lilo->{password};
+	       });
+    $entry->{append} .= " failsafe" if $entry && !$lilo->{password};
 
     #- manage older kernel if installed.
     foreach (qw(2.2 hack)) {
-- 
cgit v1.2.1