Index: /lang/perl/Encode-JP-Mobile/trunk/lib/Encode/JP/Mobile/Charnames.pm
===================================================================
--- /lang/perl/Encode-JP-Mobile/trunk/lib/Encode/JP/Mobile/Charnames.pm (revision 6648)
+++ /lang/perl/Encode-JP-Mobile/trunk/lib/Encode/JP/Mobile/Charnames.pm (revision 39136)
@@ -2,5 +2,4 @@
 use strict;
 use warnings;
-use charnames ();
 use bytes     ();
 use File::ShareDir 'dist_file';
@@ -14,4 +13,10 @@
 
 my $name2unicode;
+
+{
+    use charnames ':full';
+    BEGIN { *_def_translator = $^H{charnames} }
+}
+
 
 sub import {
@@ -68,5 +73,5 @@
     }
     else {
-        return charnames::charnames($name);
+        return _def_translator($name);
     }
 }
@@ -75,5 +80,5 @@
 sub _bytes_translator {
     my $name = shift;
-    return charnames::charnames($name);
+    return _def_translator($name);
 }