From 95d86918610308912c5d0a290a55566d7d65f656 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 25 Feb 2008 13:34:53 +0000 Subject: - fix sort choices changed in perl-URPM 3.08 --- URPM/Resolve.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'URPM/Resolve.pm') diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 1f4006b..00d7812 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -209,9 +209,9 @@ sub _find_required_package__sort { my ($urpm, $db, $packages, $provided_version) = @_; my ($best, @other) = sort { - URPM::rpmvercmp($b->[3], $a->[3]) #- highest provided version - || $a->[1] <=> $b->[1] #- we want the lowest (ie preferred arch) - || $b->[2] <=> $a->[2]; #- and the higher + $a->[1] <=> $b->[1] #- we want the lowest (ie preferred arch) + || $b->[2] <=> $a->[2] #- and the higher score + || URPM::rpmvercmp($b->[3], $a->[3]); #- and the highest provided version } map { my $score = 0; $score += 2 if $_->flag_requested; -- cgit v1.2.1