cryptがおかしいってば

以前MTのmod_perlなバグかと書いていた辺りが、perlを5.8に入れ替えてからリスタートでも解決しない事態に陥ったので、バッドノウハウ的なHACKを施した。

$ diff Author.pm.org Author.pm

24a25,29

> sub _crypt{

>       #bad wrapper for mod_perl crypt

>       return qx{perl -e 'print crypt($_[0], $_[1])'}

> }

>

30c35

<     $auth->column('password', crypt $pass, $salt);




-

>     $auth->column('password', _crypt $pass, $salt);

39c44

<                       crypt($pass, $real_pass) eq $real_pass;




-


    

        






mod_perl上のcrypt関数を信じないと言う方針。mod_perlからperlを子プロセスとして呼ぶと言う辺りが、極悪なHACKですな。
と、ここまで書いてみて、mod_perlをperl5.8でmakeし直せば直るんじゃないかと思い始めた。ハマるめんどいから暇ができるまでやらないけど。