diff options
Diffstat (limited to 'Rpmdrake/gui.pm')
| -rw-r--r-- | Rpmdrake/gui.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index 706c16df..58990d6a 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -857,7 +857,8 @@ 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 = 'rpm -q --qf "%{name}-%{version}-%{release}.%{arch} %{installtime}\n" `urpmi_rpm-find-leaves`'; + my $pkgs_times = join(' ', '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); }, flat => sub { no locale; sort { uc($a->[0]) cmp uc($b->[0]) } @_ }, |