diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-19 12:04:42 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-19 12:04:42 +0000 |
| commit | c53b57c19877be783fcfd8551e1ea57dc627a223 (patch) | |
| tree | bdeefa12d8228feb52ccfc05d62173f9a904c70c /perl-install/pkgs.pm | |
| parent | 639ce13db0bc62ee9c9972a82401387c7d0f4339 (diff) | |
| download | drakx-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/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 7 |
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 |