summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/pkgs.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 0e2158870..8037c9fa2 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -165,16 +165,16 @@ sub packageById {
sub bestKernelPackage {
my ($packages) = @_;
- my ($best, $best2);
+ my ($best, $best2, $best3);
foreach (keys %{$packages->{provides}{kernel}}) {
my $pkg = $packages->{depslist}[$_] or next;
- $pkg->name =~ /kernel-\d/ and $best = $pkg, last;
- $pkg->name =~ /kernel-i686/ and $best = $pkg;
- $pkg->name =~ /kernel-enterprise/ and $best2 = $pkg;
+ $pkg->name =~ /kernel-\d/ and $best = $pkg;
+ $pkg->name =~ /kernel-i686/ and $best2 = $pkg;
+ $pkg->name =~ /kernel-enterprise/ and $best3 = $pkg;
}
- $best || $best2;
+ $best || $best2 || $best3;
}
sub packagesOfMedium {