diff options
| -rw-r--r-- | NEWS | 2 | ||||
| -rw-r--r-- | Rpmdrake/pkg.pm | 7 |
2 files changed, 7 insertions, 2 deletions
@@ -1,3 +1,5 @@ +- even better packages sorting in searches (x86_64 first) + Version 5.28 - 15 January 2012, Thierry Vignaud - fix french translation (mga#1523) diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index ff37d59d..98470f6a 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -66,8 +66,11 @@ use ugtk2 qw(:all); our $priority_up_alread_warned; sub sort_packages_biarch { - my ($x64, $other) = partition { !/86$/ } @_; - (sort { uc($a) cmp uc($b) } @$x64), sort { uc($a) cmp uc($b) } @$other; + sort { + my ($na, $aa) = $a =~ /^(.*-[^-]+-[^-]+)\.([^.-]+)$/; + my ($nb, $ab) = $b =~ /^(.*-[^-]+-[^-]+)\.([^.-]+)$/; + $na cmp $nb || ($ab =~ /64$/) <=> ($aa =~ /64$/); + } @_; } sub sort_packages_monoarch { |