[libflickr-api-perl] 11/40: updated to use the recent version of XML::Parser::Lite::Tree with s/tag/element/

Lucas Kanashiro kanashiro-guest at moszumanska.debian.org
Sat Jul 25 21:12:17 UTC 2015


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 99d9639ef5614a14a8e8a973516e414940d2ca4e
Author: Cal Henderson <cal at iamcal.com>
Date:   Mon Sep 29 20:46:14 2008 +0000

    updated to use the recent version of XML::Parser::Lite::Tree with s/tag/element/
---
 Makefile.PL       | 2 +-
 lib/Flickr/API.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index db09cf7..f68e843 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -8,7 +8,7 @@ WriteMakefile(
 		'HTTP::Request' => 0,
 		'HTTP::Response' => 0,
 		'URI' => 1.18,
-		'XML::Parser::Lite::Tree' => 0.03,
+		'XML::Parser::Lite::Tree' => 0.06,
 		'Digest::MD5' => 0,
 		'Test::More' => 0,
 	},
diff --git a/lib/Flickr/API.pm b/lib/Flickr/API.pm
index ec5d1e9..176f1df 100644
--- a/lib/Flickr/API.pm
+++ b/lib/Flickr/API.pm
@@ -133,7 +133,7 @@ sub execute_request {
 sub _find_tag {
 	my ($self, $children) = @_;
 	for my $child(@{$children}){
-		return $child if $child->{type} eq 'tag';
+		return $child if $child->{type} eq 'element';
 	}
 	return {};
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libflickr-api-perl.git



More information about the Pkg-perl-cvs-commits mailing list