summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm7
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