my $length = $options->{length } || 4;
my $pages = $options->{pages } || 1 + int $#$self / $pagesize;
- $pagesize = @$self / $pages;
+ $pagesize = $pages >= $#$self ? 1 : @$self / $pages;
my $offset = $pagesize + .5;
my $lookbehind = -$context;
my $lookahead = $context;