1# 2# $Id: cow.t,v 1.1 2013/08/29 16:47:39 dankogai Exp $ 3# 4use strict; 5use Encode (); 6use Test::More tests => 2; 7 8 9my %a = ( "L\x{c3}\x{a9}on" => "acme" ); 10my ($k) = ( keys %a ); 11Encode::_utf8_on($k); 12my %h = ( $k => "acme" ); 13is $h{"L\x{e9}on"} => 'acme'; 14($k) = ( keys %h ); 15Encode::_utf8_off($k); 16%a = ( $k => "acme" ); 17is $h{"L\x{e9}on"} => 'acme'; 18# use Devel::Peek; 19# Dump(\%h); 20 21