# use this link if it's shorter
if ($trim < length $link) {
$link = substr $after, 0, $trim;
-# $offset += $context + 1;
- $self->[$offset + ++$penalty] =~ /^\Q$link/
- while $offset + $penalty < $#$self;
+ for ($offset .. $#$self) {
+ last if $self->[$offset + $penalty] =~ /^\Q$link/;
+ $penalty++;
+ }
}
}
}