From 1ca72725b8f355592a64e42e9ad4d9e29caf5c0c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 20 Mar 2008 13:24:18 +0000 Subject: (build_tree) actually restrict "by_leaves" view to current mode (#39090) --- Rpmdrake/gui.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Rpmdrake/gui.pm') diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index 556895cc..2a54f880 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -854,8 +854,10 @@ or you already installed all of them.")); by_selection => sub { sort { $pkgs->{$b->[0]}{selected} <=> $pkgs->{$a->[0]}{selected} || uc($a->[0]) cmp uc($b->[0]) } @_ }, by_leaves => sub { + # inlining part of MDK::Common::Data::difference2(): + my %l; @l{map { $_->[0] } @_} = (); my $pkgs_times = 'rpm -q --qf "%{name}-%{version}-%{release}.%{arch} %{installtime}\n" `urpmi_rpm-find-leaves`'; - sort { $b->[1] <=> $a->[1] } grep { exists $pkgs->{$_->[0]} } map { chomp; [ split ] } run_rpm($pkgs_times); + sort { $b->[1] <=> $a->[1] } grep { exists $l{$_->[0]} } map { chomp; [ split ] } run_rpm($pkgs_times); }, flat => sub { no locale; sort { uc($a->[0]) cmp uc($b->[0]) } @_ }, by_medium => sub { sort { $a->[2] <=> $b->[2] || uc($a->[0]) cmp uc($b->[0]) } @_ }, -- cgit v1.2.1