(do_search) flush X11 queue only every 10 packages while searching

1 files changed, 4 insertions, 2 deletions

diff --git a/rpmdrake b/rpmdrake
index a9912e5c..84148a9e 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -101,8 +101,10 @@ sub do_search($$$$$$$) {
 
             my $update_search_pb = sub {
                 $progresscount++;
-                $progresscount <= $total_size and $searchprogress->set_fraction($progresscount/$total_size);
-                $searchw->flush; # refresh and handle clicks
+                if ($progresscount % 10) {
+                    $progresscount <= $total_size and $searchprogress->set_fraction($progresscount/$total_size);
+                    $searchw->flush ; # refresh and handle clicks
+                }
             };
             foreach my $medium (grep { !$_->{ignore} } @{$urpm->{media}}) {
                 $searchstop and last;