[Mew-dist 05697] code_check_body in Japanese.pm problem

[OHARA Shigeki]

大原です。


EUC で書かれた
---- ここから ----
スポーツで運動不足を解消する
---- ここまで ----
という内容(変な内容ですいません)のファイルを
% cat a.txt | imput --jpconv --defcode=euc user at example.com
で送信出来ない、という問題を追っていたんですが、

---- ここから ----
#!/usr/local/bin/perl
use IM::Japanese;
while(<>) {
    push(@Body, $_);
}
$Body_code = code_check_body(\@Body);
print "$Body_code\n";
---- ここまで ----

というスクリプトにこのファイルを通すと、
EUC
と返ってくるまでに数分かかってしまいました。

さらに、
---- ここから ----
スポーツで運動不足を解消しない
---- ここまで ----
という内容だと、imput では送信できるんですが、
件のスクリプトに通すと、何も返ってきません。
EUC
とも表示されずに、空行が返ってくるだけになります。


これは、code_check_body の問題のように思えるんですが、
どうなんでしょうか？

----
OHARA Shigeki <os at example.com>