@@ -, +, @@ --------- -- noise -- no noise --- t/Charset.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/t/Charset.t +++ a/t/Charset.t @@ -41,7 +41,7 @@ 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"; +$octets = "flamb\xc3\xa9"; 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"); --