- my $p = $spos - $pages;
- my $i;
- $p = 0 if $p < 0;
-
- $top->move(0, 0);
- $top->attrset(COLOR_PAIR(0)) if $has_colors;
- $top->clrtobot();
- for ($i = 0; $i < $pages && $p < @shistory; $i++, $p++) {
- my $line = $shistory[$p];
- $line = substr($line, 0, COLS()) if length $line > COLS();
- $top->move($i, 0);
- if ($has_colors) {
- foreach my $ref (@colors) {
- if ($line =~ m{$$ref[0]}) {
- $top->attrset($$ref[1]);
- last;
- }
+ if ($has_colors) {
+ foreach my $ref (@colors) {
+ if ($_[0] =~ m{$$ref[0]}) {
+ $top->attrset($$ref[1]);
+ last;