北海道苫小牧市出身の初老PGが書くブログ

永遠のプログラマを夢見る、苫小牧市出身のおじさんのちらしの裏

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し直せば直るんじゃないかと思い始めた。ハマるめんどいから暇ができるまでやらないけど。