From 5575c2f980be9c457c2bfc7af1bc08f7147ddb3a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 10 Sep 2004 09:19:57 +0000 Subject: fix choosing bestKernelPackage --- perl-install/pkgs.pm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index ada980b8d..3b180b751 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -200,16 +200,18 @@ sub bestKernelPackage { #- favour versions corresponding to current BOOT version @kernels = @l; } - my $prefered_ext = - detect_devices::is_i586() ? 'i586-up-1GB' : - c::dmiDetectMemory() > 4 * 1024 ? 'enterprise' : - detect_devices::hasSMP() ? 'smp' : + my @prefered_exts = + detect_devices::is_i586() ? '-i586-up-1GB' : + c::dmiDetectMemory() > 4 * 1024 ? ('-enterprise', '-smp') : + detect_devices::hasSMP() ? '-smp' : ''; - if (my @l = grep { $_->{ext} eq $prefered_ext } @kernels) { - @kernels = @l; + foreach my $prefered_ext (@prefered_exts, '') { + if (my @l = grep { $_->{ext} eq $prefered_ext } @kernels) { + @kernels = @l; + } } - log::l("bestKernelPackage: " . join(' ', map { $_->{pkg}->name } @kernels) . (@kernels > 1 ? ' (choosing the first)' : '')); + log::l("bestKernelPackage (" . join(':', @prefered_exts) . "): " . join(' ', map { $_->{pkg}->name } @kernels) . (@kernels > 1 ? ' (choosing the first)' : '')); $preferred{'kernel-source-' . $kernels[0]{version}} = undef; $kernels[0]{pkg}; } -- cgit v1.2.1