r14726 - in /branches/upstream/libflickr-api-perl/current: META.yml lib/Flickr/API.pm

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Mon Feb 11 04:45:26 2008
New Revision: 14726

URL: http://svn.debian.org/wsvn/?sc=1&rev=14726
Log:
[svn-upgrade] Integrating new upstream version, libflickr-api-perl (0.09)

Modified:
    branches/upstream/libflickr-api-perl/current/META.yml
    branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm

Modified: branches/upstream/libflickr-api-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libflickr-api-perl/current/META.yml?rev=14726&op=diff
==============================================================================
--- branches/upstream/libflickr-api-perl/current/META.yml (original)
+++ branches/upstream/libflickr-api-perl/current/META.yml Mon Feb 11 04:45:26 2008
@@ -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:

Modified: branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm?rev=14726&op=diff
==============================================================================
--- branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm (original)
+++ branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm Mon Feb 11 04:45:26 2008
@@ -10,7 +10,7 @@
 
 our @ISA = qw(LWP::UserAgent);
 
-our $VERSION = '0.08';
+our $VERSION = '0.09';
 
 sub new {
 	my $class = shift;
@@ -19,6 +19,12 @@
 	$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 @@
 		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});