From a579d4de6d28aa2e6e4929cbca436298db5f499d Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 30 Oct 2009 15:40:54 +0000
Subject: do not add again kernels that are already in bootloader config file

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 23dcbc097..845ea6758 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1038,6 +1038,9 @@ sub suggest {
 
     my @kernels = get_kernels_and_labels() or die "no kernel installed";
 
+    my %old_kernels = map { vmlinuz2version($_->{kernel_or_dev}) => 1 } @{$bootloader->{entries}};
+    @kernels = grep { !$old_kernels{$_->{version}} } @kernels;
+
     foreach my $kernel (@kernels) {
 	my $e = add_kernel($bootloader, $kernel,
 	       {
-- 
cgit v1.2.1