From 0ba55bb1251279fc006d58453ab0d2c902f8af36 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 17 Feb 2004 10:27:42 +0000
Subject: remove bad entries after reading existing conf file

---
 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 02dfa54b7..bee4824c4 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -199,9 +199,11 @@ sub read_lilo {
 	delete $b{message};
     }
 
-    #- cleanup duplicate labels (in case file is corrupted)
+    #- cleanup duplicate labels & bad entries (in case file is corrupted)
     my %seen;
-    @{$b{entries}} = grep { !$seen{$_->{label}}++ } @{$b{entries}};
+    @{$b{entries}} = 
+	grep { !$seen{$_->{label}}++ }
+	grep { $_->{type} ne 'image' || -e "$::prefix$_->{kernel_or_dev}" } @{$b{entries}};
 
     \%b;
 }
-- 
cgit v1.2.1