From ccb4c6230e0d9fd6fa98e07430fc0b25010752cb Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 13 Dec 2004 13:34:02 +0000 Subject: Return the list of chosen packages sorted by descending version (bug #12645). --- URPM/Resolve.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'URPM') diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 0077bad..0266257 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -164,14 +164,16 @@ sub find_chosen_packages { #- sort packages in order to have preferred ones first #- (this means good locales, no locales, bad locales). - return (sort { $a->id <=> $b->id } @chosen_good_locales), - (sort { $a->id <=> $b->id } @chosen_other), - (sort { $a->id <=> $b->id } @chosen_bad_locales); + return (sort sort_package_result @chosen_good_locales), + (sort sort_package_result @chosen_other), + (sort sort_package_result @chosen_bad_locales); } return values(%packages); } +sub sort_package_result { $b->compare_pkg($a) || $a->id <=> $b->id } + #- return unresolved requires of a package (a new one or an existing one). sub unsatisfied_requires { my ($urpm, $db, $state, $pkg, %options) = @_; -- cgit v1.2.1