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

[Motonori Nakamura]

>>>>> On Mon, 29 Sep 1997 23:26:42 +0900, NAKAJIMA Yoshihiro <nakayosh at example.com> said:

nakayosh> imput のフックに関する質問です。

nakayosh> : % grep Hook `which imput`
nakayosh> :     eval "&$Hook_PreHeaderconv" if ($Hook_PreHeaderconv);
nakayosh> :     eval "&$Hook_PreFinalHeaderProc" if ($Hook_PreFinalHeaderProc);
nakayosh> :     eval "&$Hook_PreDispatching" if ($Hook_PreDispatching);

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

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

＃ あ、perl4 でも {} 使わなければできたのね。

- motonori