[libnet-openid-common-perl] 10/34: support mod_perl 2
gregor herrmann
gregoa at debian.org
Sun Feb 7 21:50:16 UTC 2016
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
More information about the Pkg-perl-cvs-commits
mailing list