[libflickr-api-perl] 10/40: imported 0.09

[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 1ab79df77e23304952504c8acfa380d995fefd31
Author: Cal Henderson <cal at iamcal.com>
Date:   Wed Apr 23 05:53:37 2008 +0000

    imported 0.09
---
 META.yml          |  2 +-
 lib/Flickr/API.pm | 10 ++++++++--
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/META.yml b/META.yml
index d06682c..0c817fe 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:         Flickr-API
-version:      0.08
+version:      0.09
 version_from: lib/Flickr/API.pm
 installdirs:  site
 requires:
diff --git a/lib/Flickr/API.pm b/lib/Flickr/API.pm
index 36af061..ec5d1e9 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 = '0.08';
+our $VERSION = '0.09';
 
 sub new {
 	my $class = shift;
@@ -19,6 +19,12 @@ sub new {
 	$self->{api_key} = $options->{key};
 	$self->{api_secret} = $options->{secret};
 
+	eval {
+		require Compress::Zlib;
+
+		$self->default_header('Accept-Encoding' => 'gzip');
+	};
+
 	warn "You must pass an API key to the constructor" unless defined $self->{api_key};
 
 	bless $self, $class;
@@ -96,7 +102,7 @@ sub execute_request {
 		return $response;
 	}
 
-	my $tree = XML::Parser::Lite::Tree::instance()->parse($response->{_content});
+	my $tree = XML::Parser::Lite::Tree::instance()->parse($response->decoded_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