[Mew-dist 2298] Re: imput's hook

[NAKAJIMA Yoshihiro]

私の

> この `&' は、要らなんじゃないですか?

に関しては、取り下げます。(今やってみるとちゃんと動きました。)
ごめんなさい。

# あの時はだめだったはずなのに…
# 夢でも見ていたのかなぁ…

で、新たに質問です。

From: Motonori Nakamura <motonori at example.com>
Subject: [Mew-dist 2289] Re: imput's hook
Date: Tue, 30 Sep 1997 06:42:00 +0900

> ええと、フックには関数名を定義してもらうことになっているので、
> & は省略可能ですがあっても構いません。上記の記述は perl4 の
> 頃からあって、perl4 では省略できませんでした。それがそのまま
> 残っています。どちらかというと、
> 	&{$Hook_PreHeaderconv} if ($Hook_PreHeaderconv);
> みたく eval を省略するのが良いでしょうね。

ということは、$Hook_* には、

$Hook = "&add_header(\@Header, 1, 'From', 'foo at example.com');"; 

のように、eval される文字列を入れるのではなくて、

$Hook = sub { &add_header(\@Header, 1, 'From', 'foo at example.com'); }; 

のように匿名サブルーチンへのリファレンスを入れるということでよろ
しいんでしょうか?

-- 
…………
…………
あと全部勝とう!
nakayosh at example.com/中島資博
PGP public key: <URL:http://www.kcn.or.jp/%7Enakayosh/nakayosh.pgp-public-key>