decode('MIME-Header-ISO_2022_JP', ...)

gistfile1.pl

Index: t/mime_header_iso2022jp.t
===================================================================
--- t/mime_header_iso2022jp.t   (リビジョン 38732)
+++ t/mime_header_iso2022jp.t   (作業コピー)
@@ -43,6 +43,9 @@

     is(encode('euc-jp', $utf8), $decoded);
     is($header, $encoded);
+
+    $utf8   = Encode::decode('MIME-Header-ISO_2022_JP', $header);
+    is(encode('euc-jp', $utf8), $decoded, "decode('MIME-Header-ISO_2022_JP', ...)");
 }

 __END__
Index: lib/Encode/MIME/Header/ISO_2022_JP.pm
===================================================================
--- lib/Encode/MIME/Header/ISO_2022_JP.pm       (リビジョン 38732)
+++ lib/Encode/MIME/Header/ISO_2022_JP.pm       (作業コピー)
@@ -6,7 +6,7 @@
 use base qw(Encode::MIME::Header);

 $Encode::Encoding{'MIME-Header-ISO_2022_JP'} =
-  bless { encode => 'B', bpl => 76, Name => 'MIME-Header-ISO_2022_JP' } =>
+  bless { decode_b => 1, decode_q => 1, encode => 'B', bpl => 76, Name => 'MIME-Header-ISO_2022_JP' } =>
   __PACKAGE__;

 use constant HEAD => '=?ISO-2022-JP?B?';