[libnet-openid-consumer-perl] 03/39: Update to 0.14
Damyan Ivanov
dmn at moszumanska.debian.org
Fri Jul 24 13:08:13 UTC 2015
This is an automated email from the git hooks/post-receive script.
dmn pushed a commit to branch master
in repository libnet-openid-consumer-perl.
commit 7b393085cc035fe7e134a66f37b31684c78b0607
Author: Dominic Hargreaves <dom at earth.li>
Date: Sun Dec 30 14:19:11 2007 +0000
Update to 0.14
---
ChangeLog | 5 +++++
MANIFEST | 1 +
META.yml | 2 +-
debian/changelog | 7 +++++++
debian/control | 2 +-
lib/Net/OpenID/Consumer.pm | 4 ++--
t/01-misc.t | 22 ++++++++++++++++++++++
7 files changed, 39 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 26cfde5..64a8e15 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+0.14: (2007-08-03)
+
+ * allow CGI subclasses (like CGI::Fast) for args. bug fix
+ from Chris Kastorff <encryptio at gmail.com>.
+
0.13:
* work-around bug in some openid servers that don't escape "+".
so treat a space as a +. (from Thomas Sibley
diff --git a/MANIFEST b/MANIFEST
index 594f7d1..2b04e47 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -6,4 +6,5 @@ lib/Net/OpenID/VerifiedIdentity.pm
lib/Net/OpenID/ClaimedIdentity.pm
lib/Net/OpenID/Association.pm
t/00-use.t
+t/01-misc.t
META.yml Module meta-data (added by MakeMaker)
diff --git a/META.yml b/META.yml
index 1cd3cd0..8fdf095 100644
--- a/META.yml
+++ b/META.yml
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Net-OpenID-Consumer
-version: 0.13
+version: 0.14
version_from: lib/Net/OpenID/Consumer.pm
installdirs: site
requires:
diff --git a/debian/changelog b/debian/changelog
index 0395275..2ead473 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+libnet-openid-consumer-perl (0.14-1) unstable; urgency=low
+
+ * New upstream release
+ * Update Standards-Version (no changes)
+
+ -- Dominic Hargreaves <dom at earth.li> Sun, 30 Dec 2007 14:19:48 +0000
+
libnet-openid-consumer-perl (0.13-1) unstable; urgency=low
* New upstream release
diff --git a/debian/control b/debian/control
index 6804baa..417bcc3 100644
--- a/debian/control
+++ b/debian/control
@@ -4,7 +4,7 @@ Priority: optional
Build-Depends: debhelper (>= 4.0.2)
Build-Depends-Indep: perl (>= 5.8.0-7), libwww-perl, libdigest-sha1-perl, libmime-perl, liburi-perl, libcrypt-dh-perl (>= 0.05), liburi-fetch-perl (>= 0.02)
Maintainer: Dominic Hargreaves <dom at earth.li>
-Standards-Version: 3.7.2
+Standards-Version: 3.7.3
Package: libnet-openid-consumer-perl
Architecture: all
diff --git a/lib/Net/OpenID/Consumer.pm b/lib/Net/OpenID/Consumer.pm
index 13bc0a4..ca6ae45 100644
--- a/lib/Net/OpenID/Consumer.pm
+++ b/lib/Net/OpenID/Consumer.pm
@@ -9,7 +9,7 @@ use URI::Fetch 0.02;
package Net::OpenID::Consumer;
use vars qw($VERSION);
-$VERSION = "0.13";
+$VERSION = "0.14";
use fields (
'cache', # the Cache object sent to URI::Fetch
@@ -97,7 +97,7 @@ sub args {
return $self->{args}->($what);
} elsif (ref $what eq "HASH") {
$getter = sub { $what->{$_[0]}; };
- } elsif (ref $what eq "CGI") {
+ } elsif (UNIVERSAL::isa($what, "CGI")) {
$getter = sub { scalar $what->param($_[0]); };
} elsif (ref $what eq "Apache") {
my %get = $what->args;
diff --git a/t/01-misc.t b/t/01-misc.t
new file mode 100644
index 0000000..b807ebd
--- /dev/null
+++ b/t/01-misc.t
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+use Test::More tests => 2;
+use Net::OpenID::Consumer;
+
+my $csr = Net::OpenID::Consumer->new;
+ok($csr, "instantiated");
+ok($csr->args(CGI::Subclass->new), "can set CGI subclass as args");
+
+package CGI;
+no warnings 'redefine';
+
+sub new {
+ my ($class) = @_;
+ return bless {}, $class;
+}
+
+package CGI::Subclass;
+use base 'CGI';
+
+1;
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-openid-consumer-perl.git
More information about the Pkg-perl-cvs-commits
mailing list