From f2d083d6bf9a16f02e5efbea4283a992178503b6 Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Sat, 27 Jun 2009 23:20:37 +0200 Subject: [PATCH] Show no more than 10 images --- bindings/perl/Champlain/examples/flickr.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bindings/perl/Champlain/examples/flickr.pl b/bindings/perl/Champlain/examples/flickr.pl index fdecdfd..6779b4b 100755 --- a/bindings/perl/Champlain/examples/flickr.pl +++ b/bindings/perl/Champlain/examples/flickr.pl @@ -135,7 +135,7 @@ sub flickr_photos_search_callback { my $doc = $parser->parse_string($xml); - my @nodes = $doc->findnodes('/rsp/photos/photo[position()]'); + my @nodes = $doc->findnodes('/rsp/photos/photo[position() < 10]'); my @photos = (); foreach my $photo_node (@nodes) { my $id = $photo_node->getAttribute('id'); -- 2.39.5