Avoid "splice() offset past end of array" warning.

metacpan · Nov 19, 2016 · 4302a53 · 4302a53
1 parent ed3e71c
commit 4302a53
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/MetaCPAN/Web/Model/API/Module.pm b/lib/MetaCPAN/Web/Model/API/Module.pm
@@ -130,7 +130,11 @@ sub search_collapsed {
         && $data->{hits}->{total}
         && $data->{hits}->{total} > $hits + ( $run - 2 ) * $RESULTS_PER_RUN );
 
-    @distributions = splice( @distributions, $from, $page_size );
+    # Avoid "splice() offset past end of array" warning.
+    @distributions
+        = $from > @distributions
+        ? ()
+        : splice( @distributions, $from, $page_size );
 
     # Everything else will fail (slowly and quietly) without distributions.
     if ( !@distributions ) {