r76536 - 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: 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