for my $i (0 .. $#links - 1) {
my ($link, $lastchar) = $links[$i + 1]->[0] =~ /(.*)(.)/;
- $link .= $lastchar eq '.' ? 'z' : chr( ord($lastchar) - 1 )
+ $link .= $lastchar eq '.' ? 'a' : chr( ord($lastchar) - 1 )
unless $lastchar eq 'a';
$links[$i]->[1] = $link;
}
if (length $s1 > $i) {
my $c1 = substr $s1, $i, 1;
if ($s1 =~ /^\Q$prefix/) {
- next if $c1 eq $char;
+ next if $c1 le $char;
}
}
push @allow, $prefix."(?![$char-$last])"