From 78687f1498eb4860228ccf5f07efffaea2e76191 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 3 Jun 2005 05:57:07 +0000 Subject: Typo fix --- perl-install/pkgs.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'perl-install') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 63fd0d74d..39cdb3955 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -198,19 +198,19 @@ sub bestKernelPackage { #- favour versions corresponding to current BOOT version @kernels = @l; } - my @prefered_exts = + my @preferred_exts = is_xbox() ? '-xbox' : detect_devices::is_i586() ? '-i586-up-1GB' : !detect_devices::has_cpu_flag('pae') ? ('-i686-up-4GB', '-i586-up-1GB') : - detect_devices::hasSMP() ? '-smp' : + detect_devices::hasSMP() ? '-smp' : ''; - foreach my $prefered_ext (@prefered_exts, '') { + foreach my $prefered_ext (@preferred_exts, '') { if (my @l = grep { $_->{ext} eq $prefered_ext } @kernels) { @kernels = @l; } } - - log::l("bestKernelPackage (" . join(':', @prefered_exts) . "): " . join(' ', map { $_->{pkg}->name } @kernels) . (@kernels > 1 ? ' (choosing the first)' : '')); + + log::l("bestKernelPackage (" . join(':', @preferred_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