r64358 - in /branches/upstream/libhtml-treebuilder-xpath-perl/current: Changes META.yml lib/HTML/TreeBuilder/XPath.pm

[ansgar at users.alioth.debian.org]

Author: ansgar
Date: Thu Oct 28 14:17:45 2010
New Revision: 64358

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64358
Log:
[svn-upgrade] new version libhtml-treebuilder-xpath-perl (0.12)

Modified:
    branches/upstream/libhtml-treebuilder-xpath-perl/current/Changes
    branches/upstream/libhtml-treebuilder-xpath-perl/current/META.yml
    branches/upstream/libhtml-treebuilder-xpath-perl/current/lib/HTML/TreeBuilder/XPath.pm

Modified: branches/upstream/libhtml-treebuilder-xpath-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-treebuilder-xpath-perl/current/Changes?rev=64358&op=diff
==============================================================================
--- branches/upstream/libhtml-treebuilder-xpath-perl/current/Changes (original)
+++ branches/upstream/libhtml-treebuilder-xpath-perl/current/Changes Thu Oct 28 14:17:45 2010
@@ -1,11 +1,19 @@
 $Id: /html-treebuilder-xpath/Changes 40 2006-05-15T07:42:34.182385Z mrodrigu  $
 Revision history for Perl extension HTML::TreeBuilder::XPath.
 
+version 0.12
+date:   2010-09-29
+# minor bug fix
+fix:    added getLocalName on elements
+        see https://rt.cpan.org/Public/Bug/Display.html?id=61746
+        found and fixed by Miyagawa
+added:  a few tests
+
 version 0.11
-date:
+date:  	2009-05-19
 # minor bug fixes
-added: mention $tree->delete in docs to warn about memory leaks
-fix:   pod fix (https://rt.cpan.org/Ticket/Display.html?id=46203)
+added:  mention $tree->delete in docs to warn about memory leaks
+fix:    pod fix (https://rt.cpan.org/Ticket/Display.html?id=46203)
 
 version: 0.10
 date: 2008-02-11

Modified: branches/upstream/libhtml-treebuilder-xpath-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-treebuilder-xpath-perl/current/META.yml?rev=64358&op=diff
==============================================================================
--- branches/upstream/libhtml-treebuilder-xpath-perl/current/META.yml (original)
+++ branches/upstream/libhtml-treebuilder-xpath-perl/current/META.yml Thu Oct 28 14:17:45 2010
@@ -1,16 +1,24 @@
 --- #YAML:1.0
-name:                HTML-TreeBuilder-XPath
-version:             0.11
-abstract:            add XPath support to HTML::TreeBuilder
-license:             perl
-author:              
+name:               HTML-TreeBuilder-XPath
+version:            0.12
+abstract:           add XPath support to HTML::TreeBuilder
+author:
     - Michel Rodriguez <mrodrigu at localdomain>
-generated_by:        ExtUtils::MakeMaker version 6.42
-distribution_type:   module
-requires:     
-    HTML::TreeBuilder:             0
-    List::Util:                    0
-    XML::XPathEngine:              0.12
+license:            perl
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:
+    HTML::TreeBuilder:  0
+    List::Util:         0
+    XML::XPathEngine:   0.12
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.56
 meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
-    version: 1.3
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: branches/upstream/libhtml-treebuilder-xpath-perl/current/lib/HTML/TreeBuilder/XPath.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-treebuilder-xpath-perl/current/lib/HTML/TreeBuilder/XPath.pm?rev=64358&op=diff
==============================================================================
--- branches/upstream/libhtml-treebuilder-xpath-perl/current/lib/HTML/TreeBuilder/XPath.pm (original)
+++ branches/upstream/libhtml-treebuilder-xpath-perl/current/lib/HTML/TreeBuilder/XPath.pm Thu Oct 28 14:17:45 2010
@@ -7,7 +7,7 @@
 
 use vars qw($VERSION);
 
-$VERSION = '0.11';
+$VERSION = '0.12';
 
 my %CHAR2DEFAULT_ENT= ( '&' => '&amp;', '<' => '&lt;', '>' => '&gt;', '"' => '&quot;');
 my %NUM2DEFAULT_ENT= ( '38' => 'amp', '60' => 'lt', '62' => 'gt', '"' => '&quot;');
@@ -131,6 +131,7 @@
     return $elt->{_parent} || bless { _root => $elt }, 'HTML::TreeBuilder::XPath::Root';
   }
 sub getName             { return shift->tag;   }
+sub getLocalName        { (my $name= $_[0]->tag) =~ s{^.*:}{}; $name; }
 sub getNextSibling      { my( $elt)= @_; 
                           my $parent= $elt->{_parent} || return undef;
                           return  $parent->_child_as_object( scalar $elt->right, ($elt->{_rank} || 0) + 1);