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 <c...@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

_______________________________________________
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

Reply via email to