Bug#941769: substr outside of string

[積丹尼 Dan Jacobson]

X-Debbugs-Cc: kubota at 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.