■

Cannot decode string with wide characters ...
Wide character in subroutine entry at ...
やりたいことはできるようになったのでこれでいいや...

sudo vim /usr/local/lib/perl5/5.8.9/mach/Encode.pm +174
164 sub decode($$;$) {
165 my ( $name, $octets, $check ) = @_;
166 return undef unless defined $octets;
167 $octets .= '' if ref $octets;
168 $check ||= 0;
169 my $enc = find_encoding($name);
170 unless ( defined $enc ) {
171 require Carp;
172 Carp::croak("Unknown encoding '$name'");
173 }
@@@ return $octets if is_utf8($octets);
176 my $string = $enc->decode( $octets, $check );
178 $_[1] = $octets if $check and !ref $check and !( $check & LEAVE_SRC() );
179 return $string;
180 }
181 *bytes2str = \&decode;

sudo vim /usr/local/lib/perl5/site_perl/5.8.9/Cache/FileBackend.pm +201
193 # Take an human readable key, and create a unique key from it
194
195 sub _Build_Unique_Key
196 {
197 my ( $p_key ) = @_;
198
199 Assert_Defined( $p_key );
200
@@@ return sha1_hex( encode_utf8($p_key) );
202 }
203
204