Changeset 16740 for lang/perl/Encode-JP-Mobile

Timestamp:

07/28/08 15:25:37 (5 months ago)

Author:

tomi-ru

Message:

MIME-系のencoding->mime_nameサポート

Location:

lang/perl/Encode-JP-Mobile/branches/mime

Files:

• lib/Encode/JP/Mobile.pm (modified) (1 diff)
• t/mime_name.t (modified) (2 diffs)

lang/perl/Encode-JP-Mobile/branches/mime/lib/Encode/JP/Mobile.pm

@@ -49 +49 @@
 for (Encode->encodings('JP::Mobile')) {
     next if defined $Encode::MIME::Name::MIME_NAME_OF{$_};
-    my $mime_name = $_ =~ /utf8/ ? 'UTF-8'
-                  : $_ =~ /sjis/ ? 'Shift_JIS'
-                  : $_ =~ /2022/ ? 'ISO-2022-JP'
+    my $mime_name = $_ =~ /utf8/i ? 'UTF-8'
+                  : $_ =~ /sjis/i ? 'Shift_JIS'
+                  : $_ =~ /2022/i ? 'ISO-2022-JP'
                   : undef;
     $Encode::MIME::Name::MIME_NAME_OF{$_} = $mime_name if $mime_name;

lang/perl/Encode-JP-Mobile/branches/mime/t/mime_name.t

@@ -9 +9 @@
     x-utf8-softbank
     x-utf8-kddi
+    MIME-Header-JP-Mobile-SoftBank-UTF8
 );
 my @sjis_encodings = qw(
@@ -23 +24 @@
     x-sjis-kddi-auto-raw
     x-sjis-airh-raw
+    MIME-Header-JP-Mobile-DoCoMo-SJIS
+    MIME-Header-JP-Mobile-KDDI-SJIS
+    MIME-Header-JP-Mobile-SoftBank-SJIS
+    MIME-Header-JP-Mobile-Airedge-SJIS
 );
 my @jis_encodings = qw(