(do_search) simplify

1 files changed, 1 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index b8abb61b..b5bddc9d 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -64,7 +64,7 @@ sub do_search($$$$$$$) {
     }
     my $entry_rx = eval { qr/$entry/i } or return;
     my $results_ok = N("Search results");
-    $options->{delete_category}->($_) foreach $results_ok;
+    $options->{delete_category}->($results_ok);
     $options->{state}{flat} and $options->{delete_all}->();
     $tree->collapse_all;
     my @search_results;