From bcdfc7c0bbbcfbfb6afbe997ad8679daf9f81a01 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 23 Aug 2005 15:37:00 +0000
Subject: for bestKernelPackage(), sort kernels to have higher version first

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

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 80cbf6b9d..3ae45f94d 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -172,7 +172,9 @@ sub analyse_kernel_name {
 sub packages2kernels {
     my ($packages) = @_;
 
-    map { 
+     sort { 
+	$a->{ext} cmp $b->{ext} || URPM::rpmvercmp($b->{version}, $a->{version});
+    } map { 
 	if (my ($ext, $version) = analyse_kernel_name($_->name)) {
 	    { pkg => $_, ext => $ext, version => $version };
 	} else {
-- 
cgit v1.2.1