Changeset 30013

Timestamp:

02/13/09 18:35:14 (4 years ago)

Author:

miyagawa

Message:

shuts up File-ShareDir? warnings

Files:

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

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

@@ -41 +41 @@
 sub _load_map {
     $map ||= +{
-        map { $_, do( dist_file( 'Encode-JP-Mobile', "${_}-table.pl" ) ) }
+        map { $_, do( _dist_file( 'Encode-JP-Mobile', "${_}-table.pl" ) ) }
           qw/docomo kddi softbank/
     };
@@ -103 +103 @@
 
 my $fallback_name_cache  = do {
-    my $src = dist_file('Encode-JP-Mobile', 'convert-map-utf8.pl');
+    my $src = _dist_file('Encode-JP-Mobile', 'convert-map-utf8.pl');
     do $src;
 };
@@ -139 +139 @@
 }
 
+
+sub _dist_file {
+    local $^W = 0; no warnings 'uninitialized'; # shuts up File-ShareDir warnings
+    dist_file(@_);
+}
+
 1;
 __END__