Merge pull request #684 from metacpan/mickey/permission_query_fix

Corrected permission query
metacpan · Jun 6, 2017 · 2ae2de4 · 2ae2de4
2 parents ebf2d18 + 8671d3e
commit 2ae2de4
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/MetaCPAN/Document/Permission.pm b/lib/MetaCPAN/Document/Permission.pm
@@ -69,9 +69,11 @@ sub by_modules {
     my ( $self, $modules ) = @_;
     $modules = [$modules] unless is_arrayref($modules);
 
+    my @modules = map +{ term => { module_name => $_ } }, @{$modules};
+
     my $body = {
         query => {
-            terms => { module_name => $modules },
+            bool => { should => \@modules }
         },
         size => 1_000,
     };