summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-08-20 14:54:33 +0000
committerFrancois Pons <fpons@mandriva.com>2002-08-20 14:54:33 +0000
commit2e63b0cb0921be02a758b503ade2657139ab3b4f (patch)
treead0a9f1553bf3ec9def20fa461bfe5910a483031 /perl-install
parent1498055dffc6e1b440d8b61b32cc0cbf32f61ad3 (diff)
downloaddrakx-2e63b0cb0921be02a758b503ade2657139ab3b4f.tar
drakx-2e63b0cb0921be02a758b503ade2657139ab3b4f.tar.gz
drakx-2e63b0cb0921be02a758b503ade2657139ab3b4f.tar.bz2
drakx-2e63b0cb0921be02a758b503ade2657139ab3b4f.tar.xz
drakx-2e63b0cb0921be02a758b503ade2657139ab3b4f.zip
added bestKernelPackage.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm12
1 files changed, 12 insertions, 0 deletions
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}] : ();