[Mew-dist 12821] IM::Iso2022jp.pm のバグ ?

[Takashi Kawachi]

こんにちは。
本日このMLに参加させていただいた河内と申します。

早速ですが、IM::Iso2022jp.pm を利用させていただいていて、バグのような
ものを発見したのでお知らせします。

435行目
if ($word_in) {
が
if ($word_in ne '') {
だと思うのですが、どうでしょう?

下記のテストスクリプトをかけた時に無限ループに入ってしまいます。
-------
#!/usr/local/bin/perl

use strict;
use IM::Iso2022jp;
use Jcode;


my ($DECODED_SUBJECT) = 'Subject: あああああああ(4/10 )';
$DECODED_SUBJECT = jcode($DECODED_SUBJECT)->jis . "\n";

$main::Folding_length = 72;
my (@jisheader) = ($DECODED_SUBJECT);
header_iso2022jp_conv( \@jisheader, 0 );
my ($ENCODED_SUBJECT) = @jisheader;
print $ENCODED_SUBJECT;
------

Fold するときに、$word_in の中身が「4/10」の中の「0」に成るのが原因の
ようです。

ではでは

-- 
Takashi Kawachi mailto:kawachi at example.com