[perl-Jcode] Spec clean-up

Paul Howarth pghmcfc at fedoraproject.org
Thu Jan 12 10:54:11 UTC 2012


commit 045958afbe7501f4c54bf72cfbfb056dfff32acf
Author: Paul Howarth <paul at city-fan.org>
Date:   Thu Jan 12 10:53:41 2012 +0000

    Spec clean-up
    
    - Add buildreqs for perl core modules that might be dual-lived
    - Nobody else likes macros for commands
    - Use patch rather than scripted edit to fix encoding of Nihongo.pod

 Jcode-2.07-UTF-8.patch |  529 ++++++++++++++++++++++++++++++++++++++++++++++++
 perl-Jcode.spec        |   51 +++--
 2 files changed, 558 insertions(+), 22 deletions(-)
---
diff --git a/Jcode-2.07-UTF-8.patch b/Jcode-2.07-UTF-8.patch
new file mode 100644
index 0000000..a5de775
--- /dev/null
+++ b/Jcode-2.07-UTF-8.patch
@@ -0,0 +1,529 @@
+--- Jcode-2.07/Jcode/Nihongo.pod	2005-02-19 06:50:14.000000000 +0000
++++ Jcode-2.07/Jcode/Nihongo.pod	2011-06-28 09:56:30.365310693 +0100
+@@ -1,77 +1,77 @@
+-=encoding euc-jp
++=encoding utf8
+ 
+-=head1 ̾Á°
++=head1 名前
+ 
+-Jcode - ÆüËܸìʸ»ú½¸¹ç¥Ï¥ó¥É¥é
++Jcode - 日本語文字集合ハンドラ
+ 
+-=head1 ³µÍ×
++=head1 概要
+ 
+  use Jcode;
+  # 
+- # ¸Å¼°¤æ¤«¤·¤¯
++ # 古式ゆかしく
+  Jcode::convert($str, $ocode, $icode, "z");
+- # ¤â¤·¤¯¤Ï¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¤Ç¡ª
++ # もしくはオブジェクト指向で!
+  print Jcode->new($str)->h2z->tr($from, $to)->utf8;
+ 
+-=head1 ÀâÌÀ
++=head1 説明
+ 
+-Jcode.pm¤Ï¥ª¥Ö¥¸¥§¥¯¥ÈŪ¤Ê¥¢¥×¥í¡¼¥Á¤È½¾Í褫¤é¤Î¥¢¥×¥í¡¼¥Á¤ÎξÊý¤ò
+-¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤¹¡£¥ª¥Ö¥¸¥§¥¯¥ÈŪ¤Ê¥¢¥×¥í¡¼¥Á¤ò»È¤¨¤Ð¤³¤ó¤Ê´¶¤¸¤Ç¡¨
++Jcode.pmはオブジェクト的なアプローチと従来からのアプローチの両方を
++サポートしています。オブジェクト的なアプローチを使えばこんな感じで;
+ 
+   $iso_2022_jp = Jcode->new($str)->h2z->jis;
+ 
+-¤³¤Á¤é¤è¤ê¥¨¥ì¥¬¥ó¥È¤Ç¤·¤ç¤¦¡§
++こちらよりエレガントでしょう:
+ 
+   $iso_2022_jp = $str;
+   &jcode::convert(\$iso_2022_jp, 'jis', &jcode::getcode(\$str), "z");
+ 
+-¥ª¥Ö¥¸¥§¥¯¥È¤ËÆëÀ÷¤ß¤Î̵¤¤¿Í¤Î¤¿¤á¤Ë¡¢Jcode.pm¤Ï¤Þ¤ÀC<getcode()>¤È
+-C<convert()>¤ò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤¹¡£
++オブジェクトに馴染みの無い人のために、Jcode.pmはまだC<getcode()>と
++C<convert()>をサポートしています。
+ 
+-Perl¤Î¥Ð¡¼¥¸¥ç¥ó¤¬5.8.1°Ê¾å¤Ê¤é¡¢Jcode¤Ï¡¢Perl 5.8°Ê¹ß¤Îɸ½àŪ¤Êʸ»ú½¸¹ç
+-¥Ï¥ó¥É¥é¥â¥¸¥å¡¼¥ë¤Ç¤¢¤ëL<Encode>¤Î¥é¥Ã¥Ñ¡¼¤È¤·¤Æ¿¶¤ëÉñ¤¤¤Þ¤¹¡£
++Perlのバージョンが5.8.1以上なら、Jcodeは、Perl 5.8以降の標準的な文字集合
++ハンドラモジュールであるL<Encode>のラッパーとして振る舞います。
+ 
+-=head1 ¥á¥½¥Ã¥É
++=head1 メソッド
+ 
+-Æä˸ÀµÚ¤·¤Ê¤¤¸Â¤ê¡¢¤³¤³¤Çµó¤²¤ë¥á¥½¥Ã¥É¤ÏÁ´¤ÆJcode¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤·¤Þ¤¹¡£
++特に言及しない限り、ここで挙げるメソッドは全てJcodeオブジェクトを返します。
+ 
+-=head2 ¥³¥ó¥¹¥È¥é¥¯¥¿
++=head2 コンストラクタ
+ 
+ =over 2
+ 
+ =item $j = Jcode-E<gt>new($str [, $icode])
+ 
+-$str¤«¤éJcode¥ª¥Ö¥¸¥§¥¯¥È$j¤òÀ¸À®¤·¤Þ¤¹¡£ÌÀ¼¨Åª¤Ë$icode¤ò¥»¥Ã¥È¤·¤Ê¤±¤ì¤Ð¡¢
+-ÆþÎÏ¥³¡¼¥É¤Ï¼«Æ°Åª¤ËȽÄꤵ¤ì¤Þ¤¹¡£ÍøÍѲÄǽ¤Êʸ»ú½¸¹ç¤Ë¤Ä¤¤¤Æ¤Ï¡¢²¼¤Î
+-L<getcode>¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£
++$strからJcodeオブジェクト$jを生成します。明示的に$icodeをセットしなければ、
++入力コードは自動的に判定されます。利用可能な文字集合については、下の
++L<getcode>を参照してください。
+ 
+-Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢C<$icode>¤Ë¤ÏL<Encode>¤¬Íý²ò¤Ç¤­¤ë
+-I<¤É¤ó¤Ê¥¨¥ó¥³¡¼¥Ç¥£¥ó¥°Ì¾>¤â»È¤¨¤Þ¤¹¡£
++Perl 5.8.1以降では、C<$icode>にはL<Encode>が理解できる
++I<どんなエンコーディング名>も使えます。
+ 
+   $j = Jcode->new($european, 'iso-latin1');
+ 
+-¥ª¥Ö¥¸¥§¥¯¥È¤òʸ»úÎ󲽤¹¤ë¤È¡¢EUC¤ËÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó¤¬ÊÖ¤ê¤Þ¤¹¡£¤Ç¤¹¤«¤é
+-C<< print $j->euc >>¤È¤¹¤ëÂå¤ï¤ê¤Ë¡¢C<< print $j >>¤È¤Ç¤­¤Þ¤¹¡£
++オブジェクトを文字列化すると、EUCに変換された文字列が返ります。ですから
++C<< print $j->euc >>とする代わりに、C<< print $j >>とできます。
+ 
+ =over 2
+ 
+-=item ¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·
++=item リファレンス渡し
+ 
+-¥¹¥«¥é¡¼ÃͤÎÂå¤ï¤ê¤Ë¡¢°Ê²¼¤Î¤è¤¦¤Ë¥ê¥Õ¥¡¥ì¥ó¥¹¤òÅϤ»¤Þ¤¹¡£
++スカラー値の代わりに、以下のようにリファレンスを渡せます。
+ 
+  Jcode->new(\$str);
+ 
+-¤³¤ì¤Ï¤Û¤ó¤Î¾¯¤·»þ´Ö¤òÀáÌó¤·¤Þ¤¹¡£¤½¤ÎÂå½þ¤È¤·¤Æ¡¢$str¤ÎÃͤ½¤Î¤â¤Î¤¬
+-ÊÑ´¹¤µ¤ì¤Þ¤¹¡Ê¤¢¤ë°ÕÌ£¡¢$str¤Ïjcode¥ª¥Ö¥¸¥§¥¯¥È¤Ë"tie¤µ¤ì¤ë"¤Î¤Ç¤¹¡Ë¡£
++これはほんの少し時間を節約します。その代償として、$strの値そのものが
++変換されます(ある意味、$strはjcodeオブジェクトに"tieされる"のです)。
+ 
+ =back
+ 
+ =item $j-E<gt>set($str [, $icode])
+ 
+-$j¤ÎÆâÉôʸ»úÎó¤Ë$str¤ò¥»¥Ã¥È¤·¤Þ¤¹¡£·«¤êÊÖ¤·Jcode¥ª¥Ö¥¸¥§¥¯¥È¤ò»È¤¦¤È¤­¤Ë
+-ÊØÍø¤Ç¤¹¡Ê¥ª¥Ö¥¸¥§¥¯¥È¤òÀ¸À®¤¹¤ë»þ´Ö¤È¥á¥â¥ê¤ÎÀáÌó¤Ë¤Ê¤ê¤Þ¤¹¡Ë¡£
++$jの内部文字列に$strをセットします。繰り返しJcodeオブジェクトを使うときに
++便利です(オブジェクトを生成する時間とメモリの節約になります)。
+ 
+- # mailbox¤òSJIS·Á¼°¤ËÊÑ´¹
++ # mailboxをSJIS形式に変換
+  my $jconv = new Jcode;
+  $/ = 00;
+  while(<>){
+@@ -80,19 +80,19 @@
+ 
+ =item $j-E<gt>append($str [, $icode]);
+ 
+-$j¤ÎÆâÉôʸ»úÎó¤Ë$str¤ò²Ã¤¨¤Þ¤¹¡£
++$jの内部文字列に$strを加えます。
+ 
+ =item $j = jcode($str [, $icode]);
+ 
+-Jcode-E<gt>new() ¤Îû½Ì·Á¡£°Ê²¼¤Î¤è¤¦¤Ë¤Ç¤­¤Þ¤¹¡¨
++Jcode-E<gt>new() の短縮形。以下のようにできます;
+ 
+  $sjis = jcode($str)->sjis;
+ 
+ =back
+ 
+-=head2 ʸ»úÎó¤Î¥¨¥ó¥³¡¼¥É
++=head2 文字列のエンコード
+ 
+-°ìÈ̤ˡ¢$j-E<gt>I<encoded>¤È¤¹¤ë¤³¤È¤ÇI<encoded>¤ËÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó¤òÆÀ¤Þ¤¹¡£
++一般に、$j-E<gt>I<encoded>とすることでI<encoded>に変換された文字列を得ます。
+ 
+ =over 2
+ 
+@@ -108,268 +108,268 @@
+ 
+ =item $utf8 = $j-E<gt>utf8
+ 
+-¼«ÌÀ¤Ç¤·¤ç¤¦¡£
++自明でしょう。
+ WYCIWYG = What you code is what you get :)
+ 
+ =item $iso_2022_jp = $j-E<gt>iso_2022_jp
+ 
+-C<< $j->h2z->jis >>¤ÈƱ¤¸¤Ç¤¹¡£
+-Ⱦ³Ñ¥«¥Ê¤Ï¶¯À©Åª¤ËÁ´³Ñ¤ËÊÑ´¹¤µ¤ì¤Þ¤¹¡£
++C<< $j->h2z->jis >>と同じです。
++半角カナは強制的に全角に変換されます。
+ 
+-Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢Encode¤¬¥µ¥Ý¡¼¥È¤¹¤ë¤É¤ó¤Ê¥¨¥ó¥³¡¼¥Ç¥£¥ó¥°Ì¾¤È
+-¥¨¥¤¥ê¥¢¥¹¤Ç¤âÍøÍѤǤ­¤Þ¤¹¡£Î㤨¤Ð¡§
++Perl 5.8.1以降では、Encodeがサポートするどんなエンコーディング名と
++エイリアスでも利用できます。例えば:
+ 
+-  $european = $j->iso_latin1; # ¥á¥½¥Ã¥É̾ÍѤË'-'¤Ï'_'¤ËÃÖ¤­´¹¤¨¤Þ¤¹
++  $european = $j->iso_latin1; # メソッド名用に'-'は'_'に置き換えます
+ 
+-B<»²¹Í>¡§L<Encode::Encoder>¤¬¤³¤ì¤ÈƱ¤¸¾®µ»¤ò»È¤Ã¤Æ¤¤¤Þ¤¹¡£
++B<参考>:L<Encode::Encoder>がこれと同じ小技を使っています。
+ 
+ =over 2
+ 
+ =item $j-E<gt>fallback($fallback)
+ 
+-Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢Jcode¤ÏÆâÉô¤Îʸ»úÎó¤òUTF-8¤ÇÊÝ»ý¤·¤Þ¤¹¡£
+-I<< -E<gt>encoding >>¤Ë¥Þ¥Ã¥×¤Ç¤­¤Ê¤¤Ê¸»ú¤Ï'?'¤ËÃÖ¤­´¹¤¨¤é¤ì¤Þ¤¹¤¬¡¢
+-¤³¤ì¤ÏL<Encode>¤Ç¤Îɸ½àÆ°ºî¤Ç¤¹¡£
+-
+-  my $unistr = "\x{262f}"; # ±¢ÍÛ¥Þ¡¼¥¯
+-  my $j = jcode($unistr);  # $j->euc ¤Î·ë²Ì¤Ï '?' ¤Ë
+-
+-¤³¤Î¿¶¤ëÉñ¤¤¤Ï¡¢L<Encode>ƱÍÍ¡¢¥Õ¥©¡¼¥ë¥Ð¥Ã¥¯¤ò»ØÄꤹ¤ë¤³¤È¤ÇÊѹ¹¤Ç¤­¤Þ¤¹¡£
+-ÃͤÏL<Encode>¤Î¤â¤Î¤È°ì½ï¤Ç¤¹¡£Êص¹¤Î¤¿¤á¡¢C<Jcode::FB_PERLQQ>¡¢
+-C<Jcode::FB_XMLCREF>¡¢C<Jcode::FB_HTMLCREF>¤¬L<Encode>¤Î¤½¤ì¤é¤Ø¤Î
+-¥¨¥¤¥ê¥¢¥¹¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
++Perl 5.8.1以降では、Jcodeは内部の文字列をUTF-8で保持します。
++I<< -E<gt>encoding >>にマップできない文字は'?'に置き換えられますが、
++これはL<Encode>での標準動作です。
++
++  my $unistr = "\x{262f}"; # 陰陽マーク
++  my $j = jcode($unistr);  # $j->euc の結果は '?' に
++
++この振る舞いは、L<Encode>同様、フォールバックを指定することで変更できます。
++値はL<Encode>のものと一緒です。便宜のため、C<Jcode::FB_PERLQQ>、
++C<Jcode::FB_XMLCREF>、C<Jcode::FB_HTMLCREF>がL<Encode>のそれらへの
++エイリアスになっています。
+ 
+   print $j->fallback(Jcode::FB_PERLQQ)->euc;   # '\x{262f}'
+   print $j->fallback(Jcode::FB_XMLCREF)->euc;  # '&#x262f;'
+   print $j->fallback(Jcode::FB_HTMLCREF)->euc; # '&#9775;'
+ 
+-¥°¥í¡¼¥Ð¥ëÊÑ¿ôC<$Jcode::FALLBACK>¤Ë¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¡¼¥ë¥Ð¥Ã¥¯¤¬ÊÝ»ý
+-¤µ¤ì¤Æ¤¤¤Þ¤¹¤Î¤Ç¡¢¤³¤ÎÃͤòÂåÆþ¤¹¤ë¤³¤È¤Ç¥ª¡¼¥Ð¡¼¥é¥¤¥É¤Ç¤­¤Þ¤¹¡£
++グローバル変数C<$Jcode::FALLBACK>にデフォルトのフォールバックが保持
++されていますので、この値を代入することでオーバーライドできます。
+ 
+-  $Jcode::FALLBACK = Jcode::FB_PERLQQ; # ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¡¼¥ë¥Ð¥Ã¥¯¥¹¥­¡¼¥Þ¤òÀßÄê
++  $Jcode::FALLBACK = Jcode::FB_PERLQQ; # デフォルトのフォールバックスキーマを設定
+ 
+ =back
+ 
+ =item [@lines =] $jcode-E<gt>jfold([$width, $newline_str, $kref])
+ 
+-$width¡Ê¥Ç¥Õ¥©¥ë¥È¡§72¡ËËè¤Ëjcodeʸ»úÎóÆâ¤Î¹Ô¤òÀÞ¤êÊÖ¤·¤Þ¤¹¡£
+-$width¤Ï¡ÉȾ³Ñ¡Éʸ»ú¤Î¿ô¤Ç¤¹¡£Á´³Ñʸ»ú¤Ï2ʸ»ú¤È¤·¤Æ¥«¥¦¥ó¥È¤·¤Þ¤¹¡£
++$width(デフォルト:72)毎にjcode文字列内の行を折り返します。
++$widthは”半角”文字の数です。全角文字は2文字としてカウントします。
+ 
+-$newline_str¡Ê¥Ç¥Õ¥©¥ë¥È¤Ï"\n"¡Ë¤Ç»ØÄꤵ¤ì¤¿²þ¹Ôʸ»ú¤¬²Ã¤ï¤ê¤Þ¤¹¡£
+-ÀÞ¤êÊÖ¤µ¤ì¤¿Á´¹Ô¤ò¥ê¥¹¥È¤ÇÊÖ¤·¤Þ¤¹¡£
++$newline_str(デフォルトは"\n")で指定された改行文字が加わります。
++折り返された全行をリストで返します。
+ 
+-Perl 5.8.1°Ê¹ß¤Ï3ÈÖÌܤΰú¿ô$kref¤ËEUC¤Îʸ»úÎó¤ÎÇÛÎó¥ê¥Õ¥¡¥ì¥ó¥¹¤ò
+-ÅϤ¹¤³¤È¤Ç¡¢´Ê°×Ū¤Ê¹ÔƬ¶Ø§½èÍý¡Ê¤Ö¤é²¼¤¬¤ê¡Ë¤ò¹Ô¤¨¤Þ¤¹¡£
++Perl 5.8.1以降は3番目の引数$krefにEUCの文字列の配列リファレンスを
++渡すことで、簡易的な行頭禁則処理(ぶら下がり)を行えます。
+ 
+ =item $length = $jcode-E<gt>jlength();
+ 
+-¥Ð¥¤¥ÈĹ¤Ç¤Ï¤Ê¤¯¡¢Á´³Ñʸ»ú¤â°ìʸ»ú¤È¤·¤Æ¿ô¤¨¤¿¾ì¹ç¤Îʸ»ú¿ô¤òÊÖ¤·¤Þ¤¹¡£
++バイト長ではなく、全角文字も一文字として数えた場合の文字数を返します。
+ 
+ =back
+ 
+-=head2 MIME::Base64¤ò»È¤¦¥á¥½¥Ã¥É
++=head2 MIME::Base64を使うメソッド
+ 
+-²¼µ­¤Î¥á¥½¥Ã¥É¤ò»È¤¦¤Ë¤Ï¡¢L<MIME::Base64>¤¬É¬ÍפǤ¹¡£¥¤¥ó¥¹¥È¡¼¥ë¤Ïñ½ã¤Ë
++下記のメソッドを使うには、L<MIME::Base64>が必要です。インストールは単純に
+ 
+    perl -MCPAN -e 'CPAN::Shell->install("MIME::Base64")'
+ 
+-¤È¤·¤Þ¤¹¡£¤ª»È¤¤¤ÎPerl¤¬5.6°Ê¹ß¤Ç¤¢¤ë¤Ê¤é¡¢L<MIME::Base64>¤Ï
+-¥Ð¥ó¥É¥ë¤µ¤ì¤Æ¤¤¤ë¤Î¤Ç¡¢¥¤¥ó¥¹¥È¡¼¥ë¤ÎɬÍפϤ¢¤ê¤Þ¤»¤ó¡£
++とします。お使いのPerlが5.6以降であるなら、L<MIME::Base64>は
++バンドルされているので、インストールの必要はありません。
+ 
+ =over 2
+ 
+ =item $mime_header = $j-E<gt>mime_encode([$lf, $bpl])
+ 
+-$str¤òRFC1522¤Ë¤¢¤ëMIME-Header¤ËÊÑ´¹¤·¤Þ¤¹¡£$lf¤ò»ØÄꤹ¤ë¤È¡¢
+-¹Ô¤ÎÀÞ¤êÊÖ¤·¤Ë$lf¤¬»È¤ï¤ì¤Þ¤¹¡Ê¥Ç¥Õ¥©¥ë¥È¡§\n¡Ë¡£
+-$bpl¤ò»ØÄꤹ¤ë¤È¡¢ÀÞ¤êÊÖ¤¹¥Ð¥¤¥È¿ô¤Ë$bpl¤¬»È¤ï¤ì¤Þ¤¹¡Ê¥Ç¥Õ¥©¥ë¥È¡§76¡¨
+-¤³¤Î¿ôÃͤÏ76°Ê²¼¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡Ë¡£
++$strをRFC1522にあるMIME-Headerに変換します。$lfを指定すると、
++行の折り返しに$lfが使われます(デフォルト:\n)。
++$bplを指定すると、折り返すバイト数に$bplが使われます(デフォルト:76;
++この数値は76以下でなければなりません)。
+ 
+-Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢°Ê²¼¤Î¤è¤¦¤Ë¤·¤Æ¤âMIME Header¥¨¥ó¥³¡¼¥É¤¬¤Ç¤­¤Þ¤¹¡§
++Perl 5.8.1以降では、以下のようにしてもMIME Headerエンコードができます:
+ 
+   $mime_header = $j->MIME_Header;
+ 
+-¤³¤Î¾ì¹çC<$mime_header>¤ÎÌá¤êÃͤÏMIME-B-encoded UTF-8¤Ë¤Ê¤ê¤Þ¤¹¡£
+-°ìÊý¡¢C<< $j->mime_encode() >>¤ÏMIME-B-encoded ISO-2022-JP¤òÊÖ¤·¤Þ¤¹¡£
+-ºÇ¶á¤Î¤Û¤È¤ó¤É¤Î¥á¡¼¥é¡¼¤Ï¤É¤Á¤é¤â¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤¹¡£
++この場合C<$mime_header>の戻り値はMIME-B-encoded UTF-8になります。
++一方、C<< $j->mime_encode() >>はMIME-B-encoded ISO-2022-JPを返します。
++最近のほとんどのメーラーはどちらもサポートしています。
+ 
+ =item $j-E<gt>mime_decode;
+ 
+-Jcode¥ª¥Ö¥¸¥§¥¯¥È¤ÎÆâÉôʸ»úÎó¤òMIME-Header¥Ç¥³¡¼¥É¤·¤Þ¤¹¡£Perl 5.8.1
+-°Ê¹ß¤Ê¤é¡¢°Ê²¼¤Î¤è¤¦¤Ë¤·¤ÆƱ¤¸¤³¤È¤¬¤Ç¤­¤Þ¤¹¡§
++Jcodeオブジェクトの内部文字列をMIME-Headerデコードします。Perl 5.8.1
++以降なら、以下のようにして同じことができます:
+ 
+   Jcode->new($str, 'MIME-Header');
+ 
+-¤³¤Á¤é¤Î¾ì¹ç¡¢ISO-2022-JP¤À¤±¤Ç¤Ï¤Ê¤¯UTF-8¤Ê¤É¤Ë¤âÂбþ¤·¤Æ¤ª¤ê¡¢
+-¤µ¤é¤ËMIME B Encoding¤Î¤ß¤Ê¤é¤ºMIME Q Encoding¤Ë¤âÂбþ¤·¤Æ¤¤¤ë
+-¤Î¤Ç¡¢Perl 5.8.1°Ê¹ß¤Ç¤¢¤ì¤Ð¤³¤Á¤é¤ò»È¤¦¤Ù¤­¤Ç¤·¤ç¤¦¡£
++こちらの場合、ISO-2022-JPだけではなくUTF-8などにも対応しており、
++さらにMIME B EncodingのみならずMIME Q Encodingにも対応している
++ので、Perl 5.8.1以降であればこちらを使うべきでしょう。
+ 
+ =back
+ 
+-=head2 Ⱦ³Ñ ¢«¢ª Á´³Ñ
++=head2 半角 ←→ 全角
+ 
+ =over 2
+ 
+ =item $j-E<gt>h2z([$keep_dakuten])
+ 
+-X201¥«¥Ê¡ÊȾ³Ñ¡Ë¤òX208¥«¥Ê¡ÊÁ´³Ñ¡Ë¤ËÊÑ´¹¤·¤Þ¤¹¡£
+-$keep_dakuten¤Ë¿¿Ãͤò¥»¥Ã¥È¤¹¤ë¤È¡¢ÂùÅÀ¤ò¤½¤Î¤Þ¤Þ¤Ë¤·¤Þ¤¹
+-(¤³¤ì¤Ï¤Ä¤Þ¤ê¡¢¡Ö¥«¡Ü¡«¡×¤Ï¡Ö¥¬¡×¤ËÊÑ´¹¤µ¤ì¤º¤Ë¤½¤Î¤Þ¤Þ
+-¤Ë¤Ê¤ë¤È¤¤¤¦¤³¤È¤Ç¤¹)
++X201カナ(半角)をX208カナ(全角)に変換します。
++$keep_dakutenに真値をセットすると、濁点をそのままにします
++(これはつまり、「カ+゛」は「ガ」に変換されずにそのまま
++になるということです)
+ 
+-$j->nmatch¤òÄ̤¸¤Æ¥Þ¥Ã¥Á¤·¤¿¿ô¤ò¼èÆÀ¤Ç¤­¤Þ¤¹¡£
++$j->nmatchを通じてマッチした数を取得できます。
+ 
+ =item $j-E<gt>z2h
+ 
+-X208¥«¥Ê¡ÊÁ´³Ñ¡Ë¤òX201¥«¥Ê¡ÊȾ³Ñ¡Ë¤ËÊÑ´¹¤·¤Þ¤¹¡£
++X208カナ(全角)をX201カナ(半角)に変換します。
+ 
+-$j->nmatch¤òÄ̤¸¤Æ¥Þ¥Ã¥Á¤·¤¿¿ô¤ò¼èÆÀ¤Ç¤­¤Þ¤¹¡£
++$j->nmatchを通じてマッチした数を取得できます。
+ 
+ =back
+ 
+-=head2 Àµµ¬É½¸½¥¨¥ß¥å¥ì¡¼¥¿
++=head2 正規表現エミュレータ
+ 
+-C<< -E<gt>m() >>¤ÈC<< -E<gt>s() >>¤ò»È¤¦¤Ë¤Ï¡¢Perl 5.8.1°Ê¹ß¤¬
+-ɬÍפǤ¹¡£
++C<< -E<gt>m() >>とC<< -E<gt>s() >>を使うには、Perl 5.8.1以降が
++必要です。
+ 
+ =over 2
+ 
+ =item $j-E<gt>tr($from, $to, $opt);
+ 
+-Jcode¥ª¥Ö¥¸¥§¥¯¥È¤ËC<tr/$from/$to/>¤òŬÍѤ·¤Þ¤¹¡£$from¤È$to¤Ï
+-EUC-JP¤Îʸ»úÎó¤Ç¤¹¡£Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢flagÉÕ¤­¤ÎUTF-8ʸ»úÎó
+-¤â¼õ¤±ÉÕ¤±¤Þ¤¹¡£
++JcodeオブジェクトにC<tr/$from/$to/>を適用します。$fromと$toは
++EUC-JPの文字列です。Perl 5.8.1以降では、flag付きのUTF-8文字列
++も受け付けます。
+ 
+-C<$opt>¤ò¥»¥Ã¥È¤¹¤ë¤È¡¢C<tr/$from/$to/$opt>¤¬Å¬ÍѤµ¤ì¤Þ¤¹¡£C<$opt>¤Ï
+-'c'¡¢'d'¤¢¤ë¤¤¤Ï¤½¤ì¤é¤ÎÁȤ߹ç¤ï¤»¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
++C<$opt>をセットすると、C<tr/$from/$to/$opt>が適用されます。C<$opt>は
++'c'、'd'あるいはそれらの組み合わせでなければなりません。
+ 
+-$j->nmatch¤òÄ̤¸¤Æ¥Þ¥Ã¥Á¤·¤¿¿ô¤ò¼èÆÀ¤Ç¤­¤Þ¤¹¡£
++$j->nmatchを通じてマッチした数を取得できます。
+ 
+-Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢tr¤Î·Á¼°¤Ë¸í¤ê¤Î¤¢¤Ã¤¿¾ì¹ç¤Ë-E<gt>error_tr¤òÄ̤¸¤Æ¡¢
+-$@¤ò¼èÆÀ¤Ç¤­¤Þ¤¹¡£
++Perl 5.8.1以降では、trの形式に誤りのあった場合に-E<gt>error_trを通じて、
++$@を取得できます。
+ 
+-°Ê²¼¤Î¥á¥½¥Ã¥É¤ÏPerl 5.8.1°Ê¹ß¤Ç¤Î¤ßÍøÍѲÄǽ¤Ç¤¹¡£
++以下のメソッドはPerl 5.8.1以降でのみ利用可能です。
+ 
+ =item $j-E<gt>s($patter, $replace, $opt);
+ 
+-¸Ä¡¹¤ËC<s/$pattern/$replace/$opt>¤òŬÍѤ·¤Þ¤¹¡£C<$opt>¤ÏÀµµ¬É½¸½¥ª¥×¥·¥ç¥ó¤È
+-Ʊ¤¸¤Ç¤¹¡£Àµµ¬É½¸½¤Î¥ª¥×¥·¥ç¥ó¤Ë¤Ä¤¤¤Æ¤ÏL<perlre>¤ò»²¾È¤¯¤À¤µ¤¤¡£
++個々にC<s/$pattern/$replace/$opt>を適用します。C<$opt>は正規表現オプションと
++同じです。正規表現のオプションについてはL<perlre>を参照ください。
+ 
+-C<< $j->tr() >>¡¢C<< $j->s() >>¤Ï¤½¤Î¥ª¥Ö¥¸¥§¥¯¥È¼«¿È¤òÊÖ¤¹¤Î¤Ç¡¢
+-°Ê²¼¤Î¤è¤¦¤ËÁàºî¤òÏ¢·ë¤Ç¤­¤Þ¤¹¡£
++C<< $j->tr() >>、C<< $j->s() >>はそのオブジェクト自身を返すので、
++以下のように操作を連結できます。
+ 
+   $j->tr("A-Z", "a-z")->s("foo", "bar");
+ 
+ =item  [@match = ] $j-E<gt>m($pattern, $opt);
+ 
+-C<m/$patter/$opt>¤òŬÍѤ·¤Þ¤¹¡£¤³¤Î¥á¥½¥Ã¥É¤Ï¡É¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤µ¤Ê¤¤¡É
+-¤Î¤Ç¡¢C<< $j->s() >>¤Î¤è¤¦¤Ë¥á¥½¥Ã¥É¤òÏ¢·ë¤Ç¤­¤Ê¤¤¤³¤È¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£
++C<m/$patter/$opt>を適用します。このメソッドは”オブジェクトを返さない”
++ので、C<< $j->s() >>のようにメソッドを連結できないことに注意してください。
+ 
+-Àµµ¬É½¸½¤Î·Á¼°¤Ë¸í¤ê¤Î¤¢¤Ã¤¿¾ì¹ç¡¢-E<gt>error_m¡¢-E<gt>error_s¤òÄ̤¸¤Æ
+-$@¤ò¼èÆÀ¤Ç¤­¤Þ¤¹¡£
++正規表現の形式に誤りのあった場合、-E<gt>error_m、-E<gt>error_sを通じて
++$@を取得できます。
+ 
+ =back
+ 
+-=head2 ¥¤¥ó¥¹¥¿¥ó¥¹ÊÑ¿ô
++=head2 インスタンス変数
+ 
+-¤â¤·Jcode¥ª¥Ö¥¸¥§¥¯¥È¤Î¥¤¥ó¥¹¥¿¥ó¥¹ÊÑ¿ô¤Ë¥¢¥¯¥»¥¹¤·¤¿¤¤¤Ê¤é¡¢Ä¾Àܤ½¤ì¤é
+-¤Ë¥¢¥¯¥»¥¹¤¹¤ë¤Î¤Ç¤Ï¤Ê¤¯¡¢¥¢¥¯¥»¥¹¥á¥½¥Ã¥É¤òÍøÍѤ·¤Þ¤·¤ç¤¦¡Ê¤³¤ì¤¾OOP
+-¤Ç¤¹¡Ë¡£
+-
+-»²¹Í¤Þ¤Ç¤Ë¡¢Jcode¤Ï¡Ê°ìÈÌŪ¤ÊÊýË¡¤Ç¤¢¤ë¡Ë¥Ï¥Ã¥·¥å¥ê¥Õ¥¡¥ì¥ó¥¹¤ÎÂå¤ï¤ê¤Ë¡¢
+-ÇÛÎó¥ê¥Õ¥¡¥ì¥ó¥¹¤ò»È¤¦¤³¤È¤Ç¡¢¥¹¥Ô¡¼¥É¤òºÇŬ²½¤·¤Æ¤¤¤Þ¤¹¡Ê¼ÂºÝ¤Î¤È¤³¤í¡¢
+-¥¢¥¯¥»¥¹¥á¥½¥Ã¥É¤ò»È¤¦¸Â¤ê¤³¤Î¤³¤È¤òÃΤëɬÍפϤ¢¤ê¤Þ¤»¤ó¡¨ ¤â¤¦°ìÅÙ
+-¤¤¤¤¤Þ¤¹¤¬¡¢¤³¤ì¤ÏOOP¤Ê¤Î¤Ç¤¹¡Ë¡£
++もしJcodeオブジェクトのインスタンス変数にアクセスしたいなら、直接それら
++にアクセスするのではなく、アクセスメソッドを利用しましょう(これぞOOP
++です)。
++
++参考までに、Jcodeは(一般的な方法である)ハッシュリファレンスの代わりに、
++配列リファレンスを使うことで、スピードを最適化しています(実際のところ、
++アクセスメソッドを使う限りこのことを知る必要はありません; もう一度
++いいますが、これはOOPなのです)。
+ 
+-Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢¥Ï¥Ã¥·¥å¥ê¥Õ¥¡¥ì¥ó¥¹¤ò»È¤¦¤è¤¦¤ËÊѹ¹¤µ¤ì¤Þ¤·¤¿¡£
+-¤³¤ì¤Ë¤è¤ê¡¢Jcode¤Î³ÈÄ¥¤Ï¤â¤Î¤¹¤´¤¯´Êñ¤Ë¤Ê¤ê¤Þ¤¹¡£
++Perl 5.8.1以降では、ハッシュリファレンスを使うように変更されました。
++これにより、Jcodeの拡張はものすごく簡単になります。
+ 
+ =over 2
+ 
+ =item $j-E<gt>r_str
+ 
+-EUCʸ»úÎó¤Ø¤Î¥ê¥Õ¥¡¥ì¥ó¥¹¡£
++EUC文字列へのリファレンス。
+ 
+-Perl 5.8.1°Ê¹ß¤Ç¤ÏUTF-8¥Õ¥é¥°¤ÎΩ¤Ã¤¿UTF-8ʸ»úÎó¤Ø¤Î¥ê¥Õ¥¡¥ì¥ó¥¹¤Ç¤¹¡£
++Perl 5.8.1以降ではUTF-8フラグの立ったUTF-8文字列へのリファレンスです。
+ 
+ =item $j-E<gt>icode
+ 
+-ľ¶á¤ÎÁàºî¤Ë¤ª¤±¤ëÆþÎÏʸ»ú¥³¡¼¥É¡£
++直近の操作における入力文字コード。
+ 
+ =item $j-E<gt>nmatch
+ 
+-¥Þ¥Ã¥Á¤·¤¿¿ô¡Ê$j->trÅù¤ò»È¤Ã¤¿¤È¤­¡Ë¡£
++マッチした数($j->tr等を使ったとき)。
+ 
+ =back
+ 
+-=head1 ¥µ¥Ö¥ë¡¼¥Á¥ó
++=head1 サブルーチン
+ 
+ =over 2
+ 
+ =item ($code, [$nmatch]) = getcode($str)
+ 
+-$str¤Îʸ»ú¥³¡¼¥É¤òÊÖ¤·¤Þ¤¹¡£Ê֤륳¡¼¥É¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
++$strの文字コードを返します。返るコードは以下の通りです。
+ 
+- ascii   Ascii ¡ÊÆüËܸ쥳¡¼¥É¤ò´Þ¤Þ¤Ê¤¤¡Ë
+- binary  Binary ¡Ê¥Æ¥­¥¹¥È¥Õ¥¡¥¤¥ë¤Ç¤Ï¤Ê¤¤¡Ë
++ ascii   Ascii (日本語コードを含まない)
++ binary  Binary (テキストファイルではない)
+  euc     EUC-JP
+  sjis    SHIFT_JIS
+  jis     JIS (ISO-2022-JP)
+  ucs2    UCS2 (Raw Unicode)
+  utf8    UTF8
+ 
+-¥¹¥«¥é¡¼¥³¥ó¥Æ¥­¥¹¥È¤ÎÂå¤ï¤ê¤ËÇÛÎó¥³¥ó¥Æ¥­¥¹¥È¤ò»È¤¦¤È¡¢²¿Ê¸»úʬ¤Î
+-¥³¡¼¥É¤¬¸«¤Ä¤«¤Ã¤¿¤Î¤«¤âÊÖ¤·¤Þ¤¹¡£¾å¤ÎÊý¤Ç½Ò¤Ù¤¿¤è¤¦¤Ë¡¢$str¤Ï\$str
+-¤Ç¤â¹½¤¤¤Þ¤»¤ó¡£
+-
+-B<jcode.pl ÍøÍѼԤÎÊý¤Ø¡§> ¤³¤Î´Ø¿ô¤Ïjcode::getcode()¤È100%¾å°Ì¸ß´¹¤¬
+-¤¢¤ê¤Þ¤¹¡£¡½¡½¤Þ¤¢¡¢¤Û¤Ü100%¡¨
+-
+- * Ìá¤êÃͤ¬ÇÛÎó¤Î¤È¤­¡¢¤½¤Î½çÈ֤ϵդȤʤê¤Þ¤¹¡¨
+-   jcode::getcode()¤Ï$nmatch¤òºÇ½é¤ËÊÖ¤·¤Þ¤¹¡£
+-
+- * jcode::getcode()¤Ï¡¢EUCʸ»ú¤ÈSJISʸ»ú¤Î¿ô¤¬Åù¤·¤¤¤È¤­¡¢'undef'¤ò
+-   ÊÖ¤·¤Þ¤¹¡£ Jcode::getcode()¤ÏEUC¤òÊÖ¤·¤Þ¤¹¡£¤³¤ì¤ÏJcode.pm¤Ë¤Ï
+-   Ãæ´Ö¤¬¤Ê¤¤¤¿¤á¤Ç¤¹¡£
++スカラーコンテキストの代わりに配列コンテキストを使うと、何文字分の
++コードが見つかったのかも返します。上の方で述べたように、$strは\$str
++でも構いません。
++
++B<jcode.pl 利用者の方へ:> この関数はjcode::getcode()と100%上位互換が
++あります。――まあ、ほぼ100%;
++
++ * 戻り値が配列のとき、その順番は逆となります;
++   jcode::getcode()は$nmatchを最初に返します。
++
++ * jcode::getcode()は、EUC文字とSJIS文字の数が等しいとき、'undef'を
++   返します。 Jcode::getcode()はEUCを返します。これはJcode.pmには
++   中間がないためです。
+ 
+ =item Jcode::convert($str, [$ocode, $icode, $opt])
+ 
+-$str¤ò$ocode¤Ç»ØÄꤷ¤¿Ê¸»ú¥³¡¼¥É¤ËÊÑ´¹¤·¤Þ¤¹¡£$icode¤â»ØÄꤹ¤ë¤È¡¢
+-ÆþÎÏʸ»úÎó¤ògetcode()¤Ç¥Á¥§¥Ã¥¯¤¹¤ëÂå¤ï¤ê¤Ë¡¢$icode¤È²¾Äꤷ¤Þ¤¹¡£
+-¾å¤ÎÊý¤Ç½Ò¤Ù¤¿¤è¤¦¤Ë¡¢$str¤Ï\$str¤Ç¤â¹½¤¤¤Þ¤»¤ó¡£
++$strを$ocodeで指定した文字コードに変換します。$icodeも指定すると、
++入力文字列をgetcode()でチェックする代わりに、$icodeと仮定します。
++上の方で述べたように、$strは\$strでも構いません。
+ 
+-B<jcode.pl ÍøÍѼԤÎÊý¤Ø¡§> ¤³¤Î´Ø¿ô¤Ïjcode::convert()¤È100%¾å°Ì¸ß´¹¤¬
+-¤¢¤ê¤Þ¤¹¡ª
++B<jcode.pl 利用者の方へ:> この関数はjcode::convert()と100%上位互換が
++あります!
+ 
+ =back
+ 
+-=head1 ¥Ð¥°
++=head1 バグ
+ 
+-Perl¤¬5.8.1°Ê¹ß¤Î¾ì¹ç¡¢Jcode¤ÏL<Encode>¤Î¥é¥Ã¥Ñ¡¼¤È¤·¤Æ¿¶¤ëÉñ¤¤¤Þ¤¹¡£
+-¤Ä¤Þ¤ê¡¢Jcode¤ÏEncodeÆâ¤Î¥Ð¥°¤Î±Æ¶Á¤ò¼õ¤±¤Þ¤¹¡£
++Perlが5.8.1以降の場合、JcodeはL<Encode>のラッパーとして振る舞います。
++つまり、JcodeはEncode内のバグの影響を受けます。
+ 
+-=head1 ¼Õ¼­
++=head1 謝辞
+ 
+-¤³¤Î¥Ñ¥Ã¥±¡¼¥¸¤Ï¡¢Æ°µ¡¡¢¥Ç¥¶¥¤¥ó¤½¤·¤Æ¥³¡¼¥É¤Î¿¤¯¤ÎÅÀ¤Ç¡¢
+-²ÎÂå ÏÂÀµ <utashiro at iij.ad.jp>»á¤ÎPerl4¥é¥¤¥Ö¥é¥êjcode.pl¤ËÉé¤Ã¤Æ¤¤¤Þ¤¹¡£
++このパッケージは、動機、デザインそしてコードの多くの点で、
++歌代 和正 <utashiro at iij.ad.jp>氏のPerl4ライブラリjcode.plに負っています。
+ 
+-Âçºê Çî´ð <ohzaki at iod.ricoh.co.jp>»á¤Ï¡¢³«È¯¤ÎÈó¾ï¤Ë½é´ü¤ÎÃʳ¬¤«¤é
+-Àµµ¬É½¸½¤òË᤭¤¢¤²¤ë¼ê½õ¤±¤ò¤·¤Æ¤¯¤ì¤Þ¤·¤¿¡£
++大崎 博基 <ohzaki at iod.ricoh.co.jp>氏は、開発の非常に初期の段階から
++正規表現を磨きあげる手助けをしてくれました。
+ 
+-makamaka at donzoko.net ¤Î JEncode ¤Ë¤Ï¡¢Jcode¤ÈEncode¤ò¤É¤¦Í»¹ç¤µ¤»¤ì¤Ð
+-¤¤¤¤¤«ÂçÊÑÂ礭¤Ê·¼¼¨¤ò¼õ¤±¤Þ¤·¤¿¡£¤Þ¤¿¡¢ËÜÆüËܸì¥Þ¥Ë¥å¥¢¥ë¤â´ó£¤·¤Æ
+-¤¤¤¿¤À¤­¤Þ¤·¤¿¡£
++makamaka at donzoko.net の JEncode には、JcodeとEncodeをどう融合させれば
++いいか大変大きな啓示を受けました。また、本日本語マニュアルも寄贈して
++いただきました。
+ 
+-¤½¤·¤ÆJcode ML <jcode5 at ring.gr.jp>¤Î³§¤µ¤ó¡£¤³¤ÎÊýã¤Ê¤·¤Ë¤Ï¡¢
+-¤³¤³¤Þ¤Ç´°À®¤·¤Ê¤«¤Ã¤¿¤³¤È¤Ç¤·¤ç¤¦¡£
++そしてJcode ML <jcode5 at ring.gr.jp>の皆さん。この方達なしには、
++ここまで完成しなかったことでしょう。
+ 
+-=head1 »²¹Í
++=head1 参考
+ 
+ L<Encode>
+ 
+ L<http://www.iana.org/assignments/character-sets>
+ 
+-=head1 Ãøºî¸¢
++=head1 著作権
+ 
+ Copyright 1999-2005 Dan Kogai <dankogai at dan.co.jp>
+ 
diff --git a/perl-Jcode.spec b/perl-Jcode.spec
index df09ea6..0fb6686 100644
--- a/perl-Jcode.spec
+++ b/perl-Jcode.spec
@@ -1,15 +1,20 @@
 Name:		perl-Jcode
 Version:	2.07
-Release:	6%{?dist}
+Release:	7%{?dist}
 Summary:	Perl extension interface for converting Japanese text
 License:	GPL+ or Artistic
 Group:		Development/Libraries
 URL:		http://search.cpan.org/dist/Jcode/
 Source0:	http://www.cpan.org/authors/id/D/DA/DANKOGAI/Jcode-%{version}.tar.gz
+Patch0:		Jcode-2.07-UTF-8.patch
 BuildArch:	noarch
-BuildRoot:	%{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
-BuildRequires:	perl(ExtUtils::MakeMaker), perl(MIME::Base64), perl(Test::More)
-Requires:	perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+BuildRoot:	%{_tmppath}/%{name}-%{version}-%{release}-root-%(id -nu)
+BuildRequires:	perl(Carp)
+BuildRequires:	perl(Exporter)
+BuildRequires:	perl(ExtUtils::MakeMaker)
+BuildRequires:	perl(MIME::Base64)
+BuildRequires:	perl(Test::More)
+Requires:	perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
 Requires:	perl(MIME::Base64)
 
 %description
@@ -19,27 +24,24 @@ Requires:	perl(MIME::Base64)
 %setup -q -n Jcode-%{version}
 
 # Fix character encoding of pod file
-%{__mv} Jcode/Nihongo.pod Jcode/Nihongo.pod.euc-jp
-%{__sed} -e 's/^=encoding euc-jp/=encoding utf8/' Jcode/Nihongo.pod.euc-jp |
-	/usr/bin/iconv -f euc-jp -t utf-8 -o Jcode/Nihongo.pod
-%{__rm} Jcode/Nihongo.pod.euc-jp
+%patch0 -p1
 
 %build
-%{__perl} Makefile.PL INSTALLDIRS=vendor
-%{__make} %{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
 
 %install
-%{__rm} -rf %{buildroot}
-%{__make} pure_install PERL_INSTALL_ROOT=%{buildroot}
-/usr/bin/find %{buildroot} -type f -name .packlist -exec %{__rm} -f {} ';'
-/usr/bin/find %{buildroot} -depth -type d -exec /bin/rmdir {} ';' 2>/dev/null
-%{__chmod} -R u+w %{buildroot}
+rm -rf %{buildroot}
+make pure_install DESTDIR=%{buildroot}
+find %{buildroot} -type f -name .packlist -exec rm -f {} ';'
+find %{buildroot} -depth -type d -exec rmdir {} ';' 2>/dev/null
+%{_fixperms} %{buildroot}
 
 %check
-LC_ALL=C %{__make} test
+LC_ALL=C make test
 
 %clean
-%{__rm} -rf %{buildroot}
+rm -rf %{buildroot}
 
 %files
 %defattr(-,root,root,-)
@@ -51,16 +53,21 @@ LC_ALL=C %{__make} test
 %{_mandir}/man3/Jcode::Nihongo.3pm*
 
 %changelog
-* Wed Jun 15 2011 Marcela Mašláňová <mmaslano at redhat.com> - 2.07-6
+* Thu Jan 12 2012 Paul Howarth <paul at city-fan.org> 2.07-7
+- Add buildreqs for perl core modules that might be dual-lived
+- Nobody else likes macros for commands
+- Use patch rather than scripted edit to fix encoding of Nihongo.pod
+
+* Wed Jun 15 2011 Marcela Mašláňová <mmaslano at redhat.com> 2.07-6
 - Perl mass rebuild
 
-* Tue Feb 08 2011 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 2.07-5
+* Tue Feb  8 2011 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> 2.07-5
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild
 
-* Mon Dec 20 2010 Marcela Maslanova <mmaslano at redhat.com> - 2.07-4
-- 661697 rebuild for fixing problems with vendorach/lib
+* Mon Dec 20 2010 Marcela Maslanova <mmaslano at redhat.com> 2.07-4
+- Rebuild to fix problems with vendorarch/lib (#661697)
 
-* Sun May 02 2010 Marcela Maslanova <mmaslano at redhat.com> 2.07-3
+* Sun May  2 2010 Marcela Maslanova <mmaslano at redhat.com> 2.07-3
 - Mass rebuild with perl 5.12.0
 
 * Mon Dec  7 2009 Stepan Kasal <skasal at redhat.com> 2.07-2



More information about the perl-devel mailing list