From 2e63b0cb0921be02a758b503ade2657139ab3b4f Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 20 Aug 2002 14:54:33 +0000
Subject: added bestKernelPackage.

---
 perl-install/pkgs.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 76a5fde39..c6c3152c7 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -163,6 +163,18 @@ sub packageById {
     my $pkg = $packages->{depslist}[$id]; #- do not log as id unsupported are still in depslist.
     $pkg->is_arch_compat && $pkg;
 }
+
+sub bestKernelPackage {
+    my ($packages) = @_;
+    my $best;
+
+    foreach ($packages->{provides}{kernel}) {
+	my $pkg = $packages->{depslist}[$_] or next;
+	$pkg->name =~ /kernel-\d/ or next;
+	!$best || $pkg->compare_pkg($best) > 0 and $best = $pkg;
+    }
+}
+
 sub packagesOfMedium {
     my ($packages, $medium) = @_;
     $medium->{start} <= $medium->{end} ? @{$packages->{depslist}}[$medium->{start} .. $medium->{end}] : ();
-- 
cgit v1.2.1