… | |
… | |
110 | |
110 | |
111 | next if $len <= $curlen; |
111 | next if $len <= $curlen; |
112 | |
112 | |
113 | # convert back from UTF-8 offset space to character space |
113 | # convert back from UTF-8 offset space to character space |
114 | { |
114 | { |
115 | my $length = substr $text, $ofs, $len; |
115 | my $length = substr "$text ", $ofs, $len; |
116 | utf8::decode $length; |
116 | utf8::decode $length; |
117 | $len = length $length; |
117 | $len = length $length; |
118 | } |
118 | } |
119 | { |
119 | { |
120 | my $prefix = substr $text, 0, $ofs; |
120 | my $prefix = substr $text, 0, $ofs; |