[Mew-dist 1653] Re: MH for mule

[YAMAGUCHI, Shuhei]

やまぐち＠ねっとらぴゅたの住人、です。

＃mule-win32とmew-distの両方同時に出しています。

>>> In article <19970826022449A.shuuic-k at example.com>,
>>>    Shuichi Kitaguchi <shuuic-k at example.com> writes:

  shuuic-k> 北口＠奈良先端大 です。
  shuuic-k> 
  shuuic-k> 中身が空のメールを送ってしまってすみませんでした。どうも
  shuuic-k> IM-62/63 は Perl 5.003 ではちゃんと動かない(?)ようで...
  shuuic-k> # このままだと正式版の IM は ActiveWare の Perl では
  shuuic-k> # 動かないことになってしまいますね...

色々と試してみて、なんとなくこの原因らしいものを見つけました。
ActiveWareのperl(Win95上の306および307)で以下の2種類のスクリプトを実行
すると、片方が変な振る舞いをしているように見えます。
＃少なくとも、FreeBSD上での振る舞いとは違う。

;; my1.pl・ここから
my ($st, $ed, $i);
$i = 100;
$st = 0;
$ed = 10;
for (; ; ) {
  for ($i = $st; $i <= $ed; $i++) {
    print $i, "\n";
  }
  last;
}
print $i, "\n";
;; my1.pl・ここまで

;; my2.pl・ここから
my ($st, $ed, $i);
$i = 100;
$st = 0;
$ed = 10;
for (; ; ) {
  for (my $i = $st; $i <= $ed; $i++) {
    print $i, "\n";
  }
  last;
}
print $i, "\n";
;; my2.pl・ここまで

;;2つの実行結果・ここから
bash$ perl my1.pl
0
1
2
3
4
5
6
7
8
9
10
11
bash$ perl my2.pl
100
bash$ 
;;2つの実行結果・ここまで

perlは良くわからないので、本当にこれが原因なのかわかりませんが、
Message.pm・623行目のfor文を
    for (my $i = $start; $i <= $end; $i++) {
から
    my ($i);
    for ($i = $start; $i <= $end; $i++) {
にしてやると、*とりあえず*中身も送られるようです。

でわでわ
-- 
yamagus at example.com / 山口 修平