This is an automated email from the git hooks/post-receive script. kanashiro-guest pushed a commit to tag 1.08 in repository libflickr-api-perl.
commit 130acd587cd4526a478df5c16f18476d99ce6777 Author: Cal Henderson <c...@iamcal.com> Date: Mon Aug 24 04:24:23 2009 +0000 1.03 - deal with encoded content correctly for perl 5.6 --- Changes | 3 +++ lib/Flickr/API.pm | 7 +++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 5b89de2..6190be3 100644 --- a/Changes +++ b/Changes @@ -11,3 +11,6 @@ Changes to Flickr::API 1.02, 2009-07-31 * license update for fedora +1.03, 2009-08-23 + * fix for perl5.6 - when HTTP::Message->decoded_content() comes back empty, + use content() instead. diff --git a/lib/Flickr/API.pm b/lib/Flickr/API.pm index ac39f88..991e6e5 100644 --- a/lib/Flickr/API.pm +++ b/lib/Flickr/API.pm @@ -10,7 +10,7 @@ use Digest::MD5 qw(md5_hex); our @ISA = qw(LWP::UserAgent); -our $VERSION = '1.02'; +our $VERSION = '1.03'; sub new { my $class = shift; @@ -104,7 +104,10 @@ sub execute_request { return $response; } - my $tree = XML::Parser::Lite::Tree::instance()->parse($response->decoded_content()); + my $content = $response->decoded_content(); + $content = $response->content() unless defined $content; + + my $tree = XML::Parser::Lite::Tree::instance()->parse($content); my $rsp_node = $self->_find_tag($tree->{children}); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libflickr-api-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits