summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-19 12:04:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-19 12:04:42 +0000
commitc53b57c19877be783fcfd8551e1ea57dc627a223 (patch)
treebdeefa12d8228feb52ccfc05d62173f9a904c70c /perl-install
parent639ce13db0bc62ee9c9972a82401387c7d0f4339 (diff)
downloaddrakx-c53b57c19877be783fcfd8551e1ea57dc627a223.tar
drakx-c53b57c19877be783fcfd8551e1ea57dc627a223.tar.gz
drakx-c53b57c19877be783fcfd8551e1ea57dc627a223.tar.bz2
drakx-c53b57c19877be783fcfd8551e1ea57dc627a223.tar.xz
drakx-c53b57c19877be783fcfd8551e1ea57dc627a223.zip
add some logging explaining the default kernel choice
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