From 358e59fa20d6827dbb156d28acaef2afe035c132 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Thu, 27 Nov 2014 15:22:11 +0100 Subject: gpg-pubkey are passed and since they are not packages produce undef value to pass to cmp --- lib/AdminPanel/Rpmdragora/pkg.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lib/AdminPanel') diff --git a/lib/AdminPanel/Rpmdragora/pkg.pm b/lib/AdminPanel/Rpmdragora/pkg.pm index 380595e..0a04c7f 100644 --- a/lib/AdminPanel/Rpmdragora/pkg.pm +++ b/lib/AdminPanel/Rpmdragora/pkg.pm @@ -53,6 +53,7 @@ use urpm::select; use urpm::main_loop; use urpm::args qw(); use urpm::util; +use Carp; my $loc = AdminPanel::rpmdragora::locale(); @@ -76,7 +77,9 @@ sub sort_packages_biarch { sort { my ($na, $aa) = $a =~ /^(.*-[^-]+-[^-]+)\.([^.-]+)$/; my ($nb, $ab) = $b =~ /^(.*-[^-]+-[^-]+)\.([^.-]+)$/; - $na cmp $nb || ($ab =~ /64$/) <=> ($aa =~ /64$/); + !defined($na) ? + (!defined($nb) ? 0 : 1) : + (!defined($nb) ? -1 : $na cmp $nb || ($ab =~ /64$/) <=> ($aa =~ /64$/)); } @_; } -- cgit v1.2.1