Changeset 4758

Timestamp:

01/17/08 09:37:21 (5 years ago)

Author:

tokuhirom

Message:

lang/perl/Encode-JP-Mobile: avoid warnings at perl > 5.10.

Files:

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

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

@@ -14 +14 @@
 sub import {
     my $class = shift;
-    $^H |= $charnames::hint_bits;
+    # for perl < 5.10
+    if ($charnames::hint_bits) {
+        $^H |= $charnames::hint_bits;
+    }
     $^H{charnames} = \&translator;
 }