Merge pull request #898 from metacpan/mickey/use_count

Script::Release: use S::Es count for checking existence

Author: oalders

lib/MetaCPAN/Script/Release.pm

@@ -161,15 +161,22 @@ sub run {
         my $d = CPAN::DistnameInfo->new($file);
 
         if ( $self->skip ) {
-            my $count = $self->index->type('release')->filter(
-                {
-                    and => [
-                        { term => { archive => $d->filename } },
-                        { term => { author  => $d->cpanid } },
-                    ]
-                }
-            )->raw->count;
-            if ($count) {
+            my $count = $self->es->count(
+                index => $self->index->name,
+                type  => 'release',
+                body  => {
+                    query => {
+                        bool => {
+                            must => [
+                                { term => { archive => $d->filename } },
+                                { term => { author  => $d->cpanid } },
+                            ]
+                        }
+                    }
+                },
+            );
+
+            if ( $count->{count} ) {
                 log_info {"Skipping $file"};
                 next;
             }