From 0566e7e6b45f1b5672e24e345a76ad5d0de4c689 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 16 Jun 2015 08:02:01 -0400
Subject: log found kernels (mga#16128)

---
 perl-install/bootloader.pm | 1 +
 perl-install/install/NEWS  | 1 +
 2 files changed, 2 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 08872ec90..5a18edd9e 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1169,6 +1169,7 @@ sub suggest {
     }
 
     my @kernels = get_kernels_and_labels() or die "no kernel installed";
+    log::l("found kernels: ", join(', ', @kernels));
 
     my %old_kernels = map { vmlinuz2version($_->{kernel_or_dev}) => 1 } @{$bootloader->{entries}};
     @kernels = grep { !$old_kernels{$_->{version}} } @kernels;
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index f335d4a82..2caac4d36 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,4 +1,5 @@
 - bootloader:
+  o log found kernels (mga#16128)
   o skip swap in the list of partitions (mga#15767)
 - partitioning:
   o auto fill LV name from mntpnt (mga#5407)
-- 
cgit v1.2.1