script/bulk: use bulk_helper

metacpan · Jun 24, 2016 · 966dd71 · 966dd71
1 parent 8469888
commit 966dd71
Showing 1 changed file with 12 additions and 5 deletions.
diff --git a/lib/MetaCPAN/Script/Backpan.pm b/lib/MetaCPAN/Script/Backpan.pm
@@ -39,6 +39,11 @@ sub update_status {
     my $es = $self->es;
     $es->trace_calls(1) if $ENV{DEBUG};
 
+    my $bulk = $es->bulk_helper(
+        index => 'cpan_v1',
+        type  => 'release',
+    );
+
     my $scroll = $es->scroll_helper(
         size   => 500,
         scroll => '2m',
@@ -58,13 +63,15 @@ sub update_status {
     );
 
     while ( my $release = $scroll->next ) {
-        $es->update(
-            index => 'cpan_v1',
-            type  => 'release',
-            id    => $release->{_id},
-            doc   => { status => 'backpan' }
+        $bulk->update(
+            {
+                id  => $release->{_id},
+                doc => { status => 'backpan' }
+            }
         );
     }
+
+    $bulk->flush;
 }
 
 __PACKAGE__->meta->make_immutable;