do double backticks call differently to be able to be parsed by

perl checker

1 files changed, 2 insertions, 2 deletions

diff --git a/rpmdrake b/rpmdrake
index 6f962178..1e44c5de 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -428,8 +428,8 @@ 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 {
-#                                              my @pkgs_times = qx{rpm -q --qf "%{name}-%{version}-%{release} %{installtime}\n" `urpmi_rpm-find-leaves`};
-                                              sort { $b->[1] <=> $a->[1] } grep { exists $pkgs->{$_->[0]} } map { [ split ] } @pkgs_times;
+                                              my $pkgs_times = 'rpm -q --qf "%{name}-%{version}-%{release} %{installtime}\n" `urpmi_rpm-find-leaves`';
+                                              sort { $b->[1] <=> $a->[1] } grep { exists $pkgs->{$_->[0]} } map { [ split ] } `$pkgs_times`;
                                           },
 					  flat => sub { sort { uc($a->[0]) cmp uc($b->[0]) } @_ });
 		       if ($flat) {