(do_search) limit the number of results to 2000, else Gtk2::TreeView

takes quite a lot of time in order to render the lsit (#30355)

1 files changed, 6 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index 761c3fa2..31cd5fee 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -135,7 +135,12 @@ sub do_search($$$$$$$) {
 	    $searchw->destroy;
 	}
     } else {
-	@search_results = grep { $_ =~ $entry_rx } @filtered_pkgs;
+        my $count;
+        foreach (@filtered_pkgs) {
+            next if !/$entry_rx/;
+            push @search_results, $_;
+            last if $count++ > 2000;
+        }
     }
     if (@search_results) {
 	$options->{add_nodes}->(map { [ $_, N("Search results") . ($options->{tree_mode} eq 'by_presence'