r42708 - in /trunk/libflickr-api-perl: Changes META.yml debian/changelog lib/Flickr/API.pm

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

Author: jawnsy-guest
Date: Tue Aug 25 00:57:39 2009
New Revision: 42708

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42708
Log:
No upload necessary. Only contains a fix for Perl 5.6
IGNORE-VERSION: 1.03-1

Modified:
    trunk/libflickr-api-perl/Changes
    trunk/libflickr-api-perl/META.yml
    trunk/libflickr-api-perl/debian/changelog
    trunk/libflickr-api-perl/lib/Flickr/API.pm

Modified: trunk/libflickr-api-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libflickr-api-perl/Changes?rev=42708&op=diff
==============================================================================
--- trunk/libflickr-api-perl/Changes (original)
+++ trunk/libflickr-api-perl/Changes Tue Aug 25 00:57:39 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: trunk/libflickr-api-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libflickr-api-perl/META.yml?rev=42708&op=diff
==============================================================================
--- trunk/libflickr-api-perl/META.yml (original)
+++ trunk/libflickr-api-perl/META.yml Tue Aug 25 00:57:39 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: trunk/libflickr-api-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libflickr-api-perl/debian/changelog?rev=42708&op=diff
==============================================================================
--- trunk/libflickr-api-perl/debian/changelog (original)
+++ trunk/libflickr-api-perl/debian/changelog Tue Aug 25 00:57:39 2009
@@ -1,7 +1,7 @@
-libflickr-api-perl (1.02-1) UNRELEASED; urgency=low
+libflickr-api-perl (1.03-1) UNRELEASED; urgency=low
 
-  No upload necessary
-  IGNORE-VERSION: 1.02-1
+  No upload necessary. Only contains a fix for Perl 5.6
+  IGNORE-VERSION: 1.03-1
 
   [ Jonathan Yu ]
   * New upstream release
@@ -23,7 +23,7 @@
   [ Nathan Handler ]
   * debian/watch: Update to ignore development releases.
 
- -- Jonathan Yu <frequency at cpan.org>  Sun, 02 Aug 2009 15:16:26 -0400
+ -- Jonathan Yu <frequency at cpan.org>  Mon, 24 Aug 2009 16:58:04 -0400
 
 libflickr-api-perl (1.01-3) unstable; urgency=low
 

Modified: trunk/libflickr-api-perl/lib/Flickr/API.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libflickr-api-perl/lib/Flickr/API.pm?rev=42708&op=diff
==============================================================================
--- trunk/libflickr-api-perl/lib/Flickr/API.pm (original)
+++ trunk/libflickr-api-perl/lib/Flickr/API.pm Tue Aug 25 00:57:39 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});