Fix off-by-one error affecting pagination

This was reorganized in 9d60740. The var comparison was moved to after the var was incremented but the offset wasn't adjusted accordingly. Closes gh-608. ... and all the duplicates.
metacpan · Apr 4, 2013 · 2ab339a · 2ab339a
1 parent b01ebe3
commit 2ab339a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/MetaCPAN/Web/Model/API/Module.pm b/lib/MetaCPAN/Web/Model/API/Module.pm
@@ -120,7 +120,8 @@ sub search_collapsed {
         $run++;
         } while ( @distributions < 20 + $from
         && $data->{hits}->{total}
-        && $data->{hits}->{total} > $hits + ( $run - 1 ) * $RESULTS_PER_RUN );
+        && $data->{hits}->{total} > $hits + ( $run - 2 ) * $RESULTS_PER_RUN
+    );
 
     @distributions = splice( @distributions, $from, 20 );
     my $ratings   = $self->model('Rating')->get(@distributions);