Show no more than 10 images

diff --git a/bindings/perl/Champlain/examples/flickr.pl b/bindings/perl/Champlain/examples/flickr.pl
index fdecdfd05a67a3456cb06ee6a682155bb2a0de01..6779b4ba13fd9f7ef6e6fb7084dc78a72610fa08 100755 (executable)
--- 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');