Umlauts like ä
} END_CODE
ok(utf8::is_utf8('κλειδί'), "utf8 flag set on source string");
good_ok( 'my %h = ( κλειδί => "Clé" );', "Hash with greek key in character string" );
use Encode ();
my $bytes = Encode::encode('utf8', 'use utf8; my %h = ( κλειδί => "Clé" );');
ok(!utf8::is_utf8($bytes), "utf8 flag not set on byte string");
{
local $TODO = "Fix CRASH";
good_ok( $bytes, "Hash with greek key in bytes string" );
}
}