add some logging explaining the default kernel choice

1 files changed, 5 insertions, 2 deletions

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index ad54e7e39..1198bb5db 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -174,6 +174,7 @@ sub bestKernelPackage {
 	$pkg->name =~ /kernel-i686/ and $best2 = $pkg;
 	$pkg->name =~ /kernel-enterprise/ and $best3 = $pkg;
     }
+    log::l("bestKernelPackage's: " . join(' ', map { if_($_, $_->name) } $best, $best2, $best3));
 
     $best || $best2 || $best3;
 }
@@ -227,8 +228,10 @@ sub packageCallbackChoices {
 	my @l = grep {
 	    #- or if a kernel has to be chosen, chose the basic one.
 	    if ($_->arch ne 'src') {
-		$_->name =~ /kernel-\d/ and return $_;
-		$_->name =~ /kernel-i686/ and return $_;
+		if ($_->name =~ /kernel-\d/ || $_->name =~ /kernel-i686/) {
+		    log::l("packageCallbackChoices: chosen " . $_->name);
+		    return $_;
+		}
 	    }
 
 	    #- or even if a package requires a specific locales which