- my ($link, $lastchar) = $links[$i + 1]->[0] =~ /(.*)(.)/;
- $link .= $lastchar eq 'a' ? '.' : chr( ord($lastchar) - 1 )
- unless $lastchar eq '.';
- next if $link eq $links[$i]->[0] and $i;
- $links[$i]->[1] = $link;
+ my ($link, $lastchar) = $links[$i + 1] =~ /(.*)(.)/;
+ $link .= $lastchar le 'a' ? '.' : chr( ord($lastchar) - 1 );
+ next if $link eq $links[$i] and $i;
+ $links[$i] .= '-'.$link;