現行Net::OpenID::Consumer(1.02)はそのままだとApache2::Requestが使えない

最近はASを書いているtakimoです。
最近、Apache2で使えるPMを作ってるのですが、ちょっとはまったのでメモ。

以下のようになってて、Apache2::Requestは認識してくれません。

elsif (ref $what eq "Apache::Request") {

http://search.cpan.org/~mart/Net-OpenID-Consumer-1.02/lib/Net/OpenID/IndirectMessage.pm

Apache::Requestしか想定してくれてないので、このままじゃApache2では使えません。
条件を変えるだけで大丈夫だと思う。（自信なし）

elsif ((ref $what eq "Apache::Request") or (ref $what eq "Apache2::Request")) {

こんな感じで動くようになると思います。