[libnet-openid-common-perl] 10/34: support mod_perl 2

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to annotated tag v1.030099_001
in repository libnet-openid-common-perl.

commit 0d7728285c24539bf9745b1f98ce62de498f4826
Author: Robert Norris <rob at eatenbyagrue.org>
Date:   Tue Oct 26 16:26:58 2010 +1100

    support mod_perl 2
---
 ChangeLog                         |  2 ++
 lib/Net/OpenID/IndirectMessage.pm | 13 +++++++------
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a9959cc..0912fe9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 1.10:
 
+    * Support for Apache2::Request (mod_perl 2) (Yitzchak Scott-Thoennes)
+
     * Fix potential timing attack when checking signatures (Adam Sjøgren)
       (see http://lists.openid.net/pipermail/openid-security/2010-July/001156.html)
 
diff --git a/lib/Net/OpenID/IndirectMessage.pm b/lib/Net/OpenID/IndirectMessage.pm
index 30f142c..4ffaaca 100644
--- a/lib/Net/OpenID/IndirectMessage.pm
+++ b/lib/Net/OpenID/IndirectMessage.pm
@@ -40,7 +40,7 @@ sub new {
         $getter = sub { $get{$_[0]}; };
         $enumer = sub { keys(%get); };
     }
-    elsif (ref $what eq "Apache::Request") {
+    elsif (ref $what eq "Apache::Request") || ($ref $what eq "Apache2::Request") {
         # Apache::Request includes the POST and GET arguments in ->param
         # when doing a POST request, which is close enough to what
         # the spec requires.
@@ -215,14 +215,15 @@ supports the basic OpenID 1.1 arguments and the extension arguments
 for Simple Registration.
 
 This class can operate on a normal hashref, a L<CGI> object, an L<Apache>
-object, an L<Apache::Request> object or an arbitrary C<CODE> ref that takes
-a key name as its first parameter and returns a value. However,
-if you use a coderef then extension arguments are not supported.
+object, an L<Apache::Request> object, an L<Apache2::Request> object or an
+arbitrary C<CODE> ref that takes a key name as its first parameter and returns
+a value. However, if you use a coderef then extension arguments are not
+supported.
 
 If you pass in a hashref or a coderef it is your responsibility as the caller
 to check the HTTP request method and pass in the correct set of arguments. If
-you use an Apache, Apache::Request or CGI object then this module will do
-the right thing automatically.
+you use an Apache, Apache::Request, Apache2::Request or CGI object then this
+module will do the right thing automatically.
 
 =head1 SYNOPSIS
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-openid-common-perl.git