r76536 - in /branches/upstream/libhtml-treebuilder-xpath-perl/current: Changes META.yml lib/HTML/TreeBuilder/XPath.pm
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Sat Jun 25 08:52:01 UTC 2011
Author: ansgar
Date: Sat Jun 25 08:51:59 2011
New Revision: 76536
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76536
Log:
[svn-upgrade] new version libhtml-treebuilder-xpath-perl (0.13)
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=76536&op=diff
==============================================================================
--- branches/upstream/libhtml-treebuilder-xpath-perl/current/Changes (original)
+++ branches/upstream/libhtml-treebuilder-xpath-perl/current/Changes Sat Jun 25 08:51:59 2011
@@ -1,12 +1,18 @@
$Id: /html-treebuilder-xpath/Changes 40 2006-05-15T07:42:34.182385Z mrodrigu $
Revision history for Perl extension HTML::TreeBuilder::XPath.
+
+version 0.13
+date: 2011-06-19
+# minor improvement
+added: make the link _parent a weakref
+ sent by Graham Barr https://rt.cpan.org/Public/Bug/Display.html?id=68896
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
+ found and fixed by Tokuhiro Matsuno
added: a few tests
version 0.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=76536&op=diff
==============================================================================
--- branches/upstream/libhtml-treebuilder-xpath-perl/current/META.yml (original)
+++ branches/upstream/libhtml-treebuilder-xpath-perl/current/META.yml Sat Jun 25 08:51:59 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: HTML-TreeBuilder-XPath
-version: 0.12
+version: 0.13
abstract: add XPath support to HTML::TreeBuilder
author:
- Michel Rodriguez <mrodrigu at localdomain>
@@ -18,7 +18,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.56
+generated_by: ExtUtils::MakeMaker version 6.57_05
meta-spec:
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=76536&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 Sat Jun 25 08:51:59 2011
@@ -1,13 +1,14 @@
package HTML::TreeBuilder::XPath;
use List::Util qw( first);
+use Scalar::Util ();
use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = '0.12';
+$VERSION = '0.13';
my %CHAR2DEFAULT_ENT= ( '&' => '&', '<' => '<', '>' => '>', '"' => '"');
my %NUM2DEFAULT_ENT= ( '38' => 'amp', '60' => 'lt', '62' => 'gt', '"' => '"');
@@ -207,6 +208,7 @@
$elt_or_text= bless { _content => $elt_or_text, _parent => $elt, },
'HTML::TreeBuilder::XPath::TextNode'
;
+ Scalar::Util::weaken($elt_or_text->{_parent});
}
if( ref $rank) { warn "rank is a ", ref( $rank), " elt_or_text is a ", ref( $elt_or_text); }
$elt_or_text->{_rank}= $rank; # used for sorting;
@@ -467,6 +469,7 @@
sub to_number { return XML::XPathEngine::Number->new( $_[0]->{_value}); }
sub isAttributeNode { 1 }
sub toString { return qq{ $_[0]->{_name}="$_[0]->{_value}"}; }
+sub getAttributes { return $_[0]->{_elt}->getAttributes; }
# awfully inefficient, but hopefully this is called only for weird (read test-case) queries
sub getPreviousSibling
More information about the Pkg-perl-cvs-commits
mailing list