@@ -, +, @@ --------- -- get a warning --- t/Charset.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) --- a/t/Charset.t +++ a/t/Charset.t @@ -41,7 +41,11 @@ ok(defined(NormalizeString($string,1,1)), 'Initialized string case 4 normali my $octets = "abc"; ok(IsStringUTF8ish($octets), "verify octets are valid UTF-8 (ASCII)"); -$octets = "flamb\c3\a9"; +{ + no warnings 'syntax'; + $octets = "flamb\c3\a9"; +} + ok(!Encode::is_utf8($octets), "verify that string does not have Perl UTF-8 flag on"); ok(IsStringUTF8ish($octets), "verify octets are valid UTF-8 (LATIN SMALL LETTER E WITH ACUTE)"); ok(!Encode::is_utf8($octets), "verify that IsStringUTF8ish does not magically turn Perl UTF-8 flag on"); --