Changeset 39136 for lang/perl/Encode-JP-Mobile/trunk/lib/Encode/JP/Mobile/Charnames.pm

Timestamp:

04/20/12 11:23:41 (13 months ago)

Author:

miyagawa

Message:

Avoid use of an undocumented charnames API
Fixes https://rt.cpan.org/Public/Bug/Display.html?id=76373

Files:

• lang/perl/Encode-JP-Mobile/trunk/lib/Encode/JP/Mobile/Charnames.pm (modified) (4 diffs)

lang/perl/Encode-JP-Mobile/trunk/lib/Encode/JP/Mobile/Charnames.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use charnames ();
 use bytes     ();
 use File::ShareDir 'dist_file';
@@ -14 +13 @@
 
 my $name2unicode;
+
+{
+    use charnames ':full';
+    BEGIN { *_def_translator = $^H{charnames} }
+}
+
 
 sub import {
@@ -68 +73 @@
     }
     else {
-        return charnames::charnames($name);
+        return _def_translator($name);
     }
 }
@@ -75 +80 @@
 sub _bytes_translator {
     my $name = shift;
-    return charnames::charnames($name);
+    return _def_translator($name);
 }