From c53b57c19877be783fcfd8551e1ea57dc627a223 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 19 Jan 2004 12:04:42 +0000 Subject: add some logging explaining the default kernel choice --- perl-install/pkgs.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'perl-install/pkgs.pm') 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 -- cgit v1.2.1