[libflickr-api-perl] 18/40: 1.03 - deal with encoded content correctly for perl 5.6

[Lucas Kanashiro]

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 <cal at 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