From 8d8ecd7e9fb1c856c3e4e6927debab0261c299a2 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 7 May 2008 21:04:49 +0000 Subject: (build_tree) simplify / robustify by using a plain list --- Rpmdrake/gui.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index 58990d6a..5d95f31b 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -857,9 +857,9 @@ or you already installed all of them.")); by_leaves => sub { # inlining part of MDK::Common::Data::difference2(): my %l; @l{map { $_->[0] } @_} = (); - my $pkgs_times = join(' ', 'rpm -q --qf "%{name}-%{version}-%{release}.%{arch} %{installtime}\n"', + my @pkgs_times = ('rpm', '-q', '--qf', '%{name}-%{version}-%{release}.%{arch} %{installtime}\n', map { chomp_($_) } run_program::get_stdout('urpmi_rpm-find-leaves')); - sort { $b->[1] <=> $a->[1] } grep { exists $l{$_->[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