[libnet-openid-consumer-perl] 03/39: Update to 0.14

[Damyan Ivanov]

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