X-Debbugs-Cc: kub...@debian.org
Package: libtext-wrapi18n-perl
Version: 0.06-9
Severity: important
$ cat t.pl
use strict;
use warnings FATAL => q(all);
use utf8;
use open qw/:std :encoding(utf8)/;
use Text::WrapI18N;
for ( "憲桐 ～慶福", "憲桐 慶福里", "陳憲桐 ～慶福里" ) {
print STDERR wrap( "", "", $_ ), "\n" x 2;
}
$ perl t.pl
憲桐 ～慶福
憲桐 慶福里
substr outside of string at /usr/share/perl5/Text/WrapI18N.pm line 130.
substr outside of string at /usr/share/perl5/Text/WrapI18N.pm line 141.
Use of uninitialized value in ord at /usr/share/perl5/Text/WrapI18N.pm line 141.
Use of uninitialized value $text in numeric eq (==) at
/usr/share/perl5/Text/WrapI18N.pm line 52.
陳憲桐 ～慶福里
Also FATAL is ignored.
