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

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

Author: jawnsy-guest
Date: Tue Aug 25 00:55:44 2009
New Revision: 42706

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

Modified:
    branches/upstream/libflickr-api-perl/current/Changes
    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/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libflickr-api-perl/current/Changes?rev=42706&op=diff
==============================================================================
--- branches/upstream/libflickr-api-perl/current/Changes (original)
+++ branches/upstream/libflickr-api-perl/current/Changes Tue Aug 25 00:55:44 2009
@@ -11,3 +11,6 @@
 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.

Modified: branches/upstream/libflickr-api-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libflickr-api-perl/current/META.yml?rev=42706&op=diff
==============================================================================
--- branches/upstream/libflickr-api-perl/current/META.yml (original)
+++ branches/upstream/libflickr-api-perl/current/META.yml Tue Aug 25 00:55:44 2009
@@ -1,10 +1,12 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         Flickr-API
-version:      1.02
-version_from: lib/Flickr/API.pm
-installdirs:  site
-requires:
+--- #YAML:1.0
+name:                Flickr-API
+version:             1.03
+abstract:            ~
+license:             ~
+author:              ~
+generated_by:        ExtUtils::MakeMaker version 6.42
+distribution_type:   module
+requires:     
     Digest::MD5:                   0
     HTTP::Request:                 0
     HTTP::Response:                0
@@ -12,6 +14,6 @@
     Test::More:                    0
     URI:                           1.18
     XML::Parser::Lite::Tree:       0.06
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+meta-spec:
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm?rev=42706&op=diff
==============================================================================
--- branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm (original)
+++ branches/upstream/libflickr-api-perl/current/lib/Flickr/API.pm Tue Aug 25 00:55:44 2009
@@ -10,7 +10,7 @@
 
 our @ISA = qw(LWP::UserAgent);
 
-our $VERSION = '1.02';
+our $VERSION = '1.03';
 
 sub new {
 	my $class = shift;
@@ -104,7 +104,10 @@
 		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});