From e1e644ae896f70a9335e9417cd76af4460811e3b Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 28 Apr 2009 16:13:58 +0000 Subject: fix sort usage, ask_remove was being assigned: [ $urpm, $urpm->{state} ] --- Rpmdrake/pkg.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index b18ecb52..a0b53bd5 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -651,7 +651,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-( my @to_install = @{$urpm->{depslist}}[keys %{$state->{selected}}]; my @pkgs = map { scalar($_->fullname) } sort(grep { $_->flag_selected } @to_install); - @{$urpm->{ask_remove}} = sort urpm::select::removed_packages($urpm, $urpm->{state}); + @{$urpm->{ask_remove}} = sort(urpm::select::removed_packages($urpm, $urpm->{state})); my @to_remove = map { if_($pkgs->{$_}{selected} && !$pkgs->{$_}{pkg}->flag_upgrade, $pkgs->{$_}{urpm_name}) } keys %$pkgs; my $r = format_list(map { scalar(urpm::select::translate_why_removed_one($urpm, $urpm->{state}, $_)) } @to_remove); -- cgit v1.2.1