[pkgsrc/trunk]: pkgsrc/textproc/p5-XML-LibXML-Iterator Update to version 1.03.

[seb <seb%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/883019b33ab8
branches:  trunk
changeset: 531819:883019b33ab8
user:      seb <seb%pkgsrc.org@localhost>
date:      Mon Aug 06 22:52:06 2007 +0000

description:
Update to version 1.03.

It is a bug fix release including the patches previously provided in
this package.

diffstat:

 textproc/p5-XML-LibXML-Iterator/Makefile         |   5 +-
 textproc/p5-XML-LibXML-Iterator/distinfo         |  10 +--
 textproc/p5-XML-LibXML-Iterator/patches/patch-aa |  13 ----
 textproc/p5-XML-LibXML-Iterator/patches/patch-ab |  63 ------------------------
 4 files changed, 6 insertions(+), 85 deletions(-)

diffs (113 lines):

diff -r 2f113c3239b5 -r 883019b33ab8 textproc/p5-XML-LibXML-Iterator/Makefile
--- a/textproc/p5-XML-LibXML-Iterator/Makefile  Mon Aug 06 22:42:11 2007 +0000
+++ b/textproc/p5-XML-LibXML-Iterator/Makefile  Mon Aug 06 22:52:06 2007 +0000
@@ -1,8 +1,7 @@
-# $NetBSD: Makefile,v 1.10 2007/08/06 15:28:03 seb Exp $
+# $NetBSD: Makefile,v 1.11 2007/08/06 22:52:06 seb Exp $
 #
 
-DISTNAME=      XML-LibXML-Iterator-1.02
-PKGREVISION=   1
+DISTNAME=      XML-LibXML-Iterator-1.03
 PKGNAME=       p5-${DISTNAME}
 SVR4_PKGNAME=  p5xlx
 CATEGORIES=    textproc perl5
diff -r 2f113c3239b5 -r 883019b33ab8 textproc/p5-XML-LibXML-Iterator/distinfo
--- a/textproc/p5-XML-LibXML-Iterator/distinfo  Mon Aug 06 22:42:11 2007 +0000
+++ b/textproc/p5-XML-LibXML-Iterator/distinfo  Mon Aug 06 22:52:06 2007 +0000
@@ -1,7 +1,5 @@
-$NetBSD: distinfo,v 1.4 2007/08/06 15:28:03 seb Exp $
+$NetBSD: distinfo,v 1.5 2007/08/06 22:52:06 seb Exp $
 
-SHA1 (XML-LibXML-Iterator-1.02.tar.gz) = cb41b80d22b0c5ee5de61abeb5a866b349b96966
-RMD160 (XML-LibXML-Iterator-1.02.tar.gz) = a1f003fd89a20693f3b989b77ec0ad77dc75cd7e
-Size (XML-LibXML-Iterator-1.02.tar.gz) = 7712 bytes
-SHA1 (patch-aa) = 114cec249ab35eed749037e7ad33811fcb077a42
-SHA1 (patch-ab) = b8330c8a1b30e99311bebf19c15f5f3bf29a4672
+SHA1 (XML-LibXML-Iterator-1.03.tar.gz) = 4581a4a1e9d4efae03c01057c52b74717f7d205e
+RMD160 (XML-LibXML-Iterator-1.03.tar.gz) = e00fee0a0e5e8e23fc49077f0e45ba4800285d83
+Size (XML-LibXML-Iterator-1.03.tar.gz) = 7903 bytes
diff -r 2f113c3239b5 -r 883019b33ab8 textproc/p5-XML-LibXML-Iterator/patches/patch-aa
--- a/textproc/p5-XML-LibXML-Iterator/patches/patch-aa  Mon Aug 06 22:42:11 2007 +0000
+++ /dev/null   Thu Jan 01 00:00:00 1970 +0000
@@ -1,13 +0,0 @@
-$NetBSD: patch-aa,v 1.1 2007/08/06 15:28:03 seb Exp $
-
---- lib/XML/LibXML/NodeList/Iterator.pm.orig   2007-06-23 13:42:16.000000000 +0000
-+++ lib/XML/LibXML/NodeList/Iterator.pm
-@@ -61,7 +61,7 @@ sub first    { $_[0][1]=0;
- sub last     {
-     my $i = scalar(@{$_[0][0]})-1;
-     while($i >= 0){
--        if ( $_[0]->accept_node($_[0][0][$i] == FILTER_ACCEPT) ) {
-+        if ( $_[0]->accept_node($_[0][0][$i]) == FILTER_ACCEPT ) {
-             $_[0][1] = $i;
-             last;
-         }
diff -r 2f113c3239b5 -r 883019b33ab8 textproc/p5-XML-LibXML-Iterator/patches/patch-ab
--- a/textproc/p5-XML-LibXML-Iterator/patches/patch-ab  Mon Aug 06 22:42:11 2007 +0000
+++ /dev/null   Thu Jan 01 00:00:00 1970 +0000
@@ -1,63 +0,0 @@
-$NetBSD: patch-ab,v 1.1 2007/08/06 15:28:04 seb Exp $
-
---- t/03list.t.orig    2007-06-23 13:33:50.000000000 +0000
-+++ t/03list.t
-@@ -1,7 +1,7 @@
- use Test;
- 
- 
--BEGIN { plan tests => 7; }
-+BEGIN { plan tests => 8; }
- 
- use XML::LibXML;
- use XML::LibXML::NodeList::Iterator;
-@@ -257,3 +257,49 @@ sub t05_run_iterate {
-     return 1;
- }
- ok(t05_run_iterate());
-+
-+package MyFilter;
-+use base qw(XML::NodeFilter);
-+use XML::NodeFilter qw(:results);
-+use UNIVERSAL;
-+
-+sub accept_node {
-+    my $self = shift;
-+    my $node = shift;
-+    if (!UNIVERSAL::isa($node, 'XML::LibXML::Element')) {
-+        die "invalid node in MyFilter::accept_node()";
-+    }
-+    return FILTER_DECLINED;
-+}
-+
-+package main;
-+
-+sub t08_last_with_filter {
-+    my $doc = XML::LibXML->new->parse_string( $xmlstr );
-+    
-+    unless ( defined $doc ) {
-+        print "# XML string was not parsed properly\n";
-+        return 0;
-+    }
-+
-+    my $nodelist = $doc->findnodes( '//*' );
-+    my $iterator = XML::LibXML::NodeList::Iterator->new( $nodelist ); 
-+    $iterator->add_filter( MyFilter->new() );
-+
-+    $iterator->last();
-+
-+    unless ( defined $iterator->current() ) {
-+        print "# there is no last node\n";
-+        return 0;
-+    }
-+    
-+    unless ( $iterator->current()->nodeName() eq "D" ) {
-+        print "# expected nodeName 'D' received '"
-+            . $iterator->current()->nodeName()
-+            . "'\n";
-+        return 0;
-+    }
-+
-+    return 1;
-+}
-+ok(t08_last_with_filter());