limit $offset scope

diff --git a/lib/List/Index.pm b/lib/List/Index.pm
index e67e5ae730202bafb8bd4ff3640d35656b51c129..f703d974ebabfdea316db90cd5764c2a9bea45f2 100644 (file)
--- a/lib/List/Index.pm
+++ b/lib/List/Index.pm
@@ -23,11 +23,11 @@ sub ranges {
        my $pages    = $options->{pages   } || 1 + int $#$self / $pagesize;
 
        $pagesize = $pages >= $#$self ? 1 : @$self / $pages;
-       my $offset = $pagesize + .5;
        my $lookbehind = -$context;
        my $lookahead  =  $context;
+
        my @links = ('');
-       while ($offset < @$self) {
+       for (my $offset = $pagesize + .5; $offset < @$self; $offset += $pagesize) {
                my $link = substr $self->[$offset], 0, $length;
                if ($context) {
                        my $penalty = 0;
@@ -75,7 +75,6 @@ sub ranges {
                }
 
                push @links, $link;
-               $offset += $pagesize;
        }
 
        use List::MoreUtils 'uniq';