Subject: | t/62_regexp_multibyte_char_class.t fails for perl >= 5.22.0 and non-utf8 locale |
If a non-utf8 locale is in effect (e.g. LC_ALL=C), then the nowarnings test in t/62_regexp_multibyte_char_class.t fails. This happens only with perl 5.22.0 and later.
# Failed test 'no warnings'
# at inc/Test/NoWarnings.pm line 38.
# There were 12 warning(s)
# Previous test 3 'An object of class 'DBI::db' isa 'DBI::db''
# Wide character (U+30C6) in pattern match (m//) at /tmpfs/.cpan-build-cpansand/2016022006/DBD-SQLite-1.51_02-BHvzZR/blib/lib/DBD/SQLite.pm line 187.
# at /tmpfs/.cpan-build-cpansand/2016022006/DBD-SQLite-1.51_02-BHvzZR/blib/lib/DBD/SQLite.pm line 187.
# DBD::SQLite::dr::regexp("\x{30c6}[\x{30b9}\x{30f3}]\x{30c8}", "\x{30c6}\x{30b9}\x{30c8}") called at /opt/perl-5.23.7/lib/site_perl/5.23.7/x86_64-linux/DBI.pm line 1696
# eval {...} called at /opt/perl-5.23.7/lib/site_perl/5.23.7/x86_64-linux/DBI.pm line 1696
# DBD::_::db::selectcol_arrayref(DBI::db=HASH(0x27800a0), "SELECT txt from regexp_test WHERE txt REGEXP '\x{30c6}[\x{30b9}\x{30f3}]\x{30c8}' ") called at t/62_regexp_multibyte_char_class.t line 46
#
...