r77276 - in /trunk/libhtml-treebuilder-xpath-perl: META.yml debian/changelog debian/control debian/source/local-options lib/HTML/TreeBuilder/XPath.pm

[ansgar at users.alioth.debian.org]

Author: ansgar
Date: Fri Jul  8 22:17:58 2011
New Revision: 77276

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77276
Log:
* New upstream release.
* Bump Standards-Version to 3.9.2 (no changes).

Added:
    trunk/libhtml-treebuilder-xpath-perl/debian/source/local-options
Modified:
    trunk/libhtml-treebuilder-xpath-perl/META.yml
    trunk/libhtml-treebuilder-xpath-perl/debian/changelog
    trunk/libhtml-treebuilder-xpath-perl/debian/control
    trunk/libhtml-treebuilder-xpath-perl/lib/HTML/TreeBuilder/XPath.pm

Modified: trunk/libhtml-treebuilder-xpath-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-treebuilder-xpath-perl/META.yml?rev=77276&op=diff
==============================================================================
--- trunk/libhtml-treebuilder-xpath-perl/META.yml (original)
+++ trunk/libhtml-treebuilder-xpath-perl/META.yml Fri Jul  8 22:17:58 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: trunk/libhtml-treebuilder-xpath-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-treebuilder-xpath-perl/debian/changelog?rev=77276&op=diff
==============================================================================
--- trunk/libhtml-treebuilder-xpath-perl/debian/changelog (original)
+++ trunk/libhtml-treebuilder-xpath-perl/debian/changelog Fri Jul  8 22:17:58 2011
@@ -1,3 +1,10 @@
+libhtml-treebuilder-xpath-perl (0.13-1) unstable; urgency=low
+
+  * New upstream release.
+  * Bump Standards-Version to 3.9.2 (no changes).
+
+ -- Ansgar Burchardt <ansgar at debian.org>  Sat, 09 Jul 2011 00:17:16 +0200
+
 libhtml-treebuilder-xpath-perl (0.12-1) unstable; urgency=low
 
   [ Nathan Handler ]

Modified: trunk/libhtml-treebuilder-xpath-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-treebuilder-xpath-perl/debian/control?rev=77276&op=diff
==============================================================================
--- trunk/libhtml-treebuilder-xpath-perl/debian/control (original)
+++ trunk/libhtml-treebuilder-xpath-perl/debian/control Fri Jul  8 22:17:58 2011
@@ -7,7 +7,7 @@
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Damyan Ivanov <dmn at debian.org>, gregor herrmann <gregoa at debian.org>,
  Jonathan Yu <jawnsy at cpan.org>, Ansgar Burchardt <ansgar at debian.org>
-Standards-Version: 3.9.1
+Standards-Version: 3.9.2
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libhtml-treebuilder-xpath-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libhtml-treebuilder-xpath-perl/
 Homepage: http://search.cpan.org/dist/HTML-TreeBuilder-XPath/

Added: trunk/libhtml-treebuilder-xpath-perl/debian/source/local-options
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-treebuilder-xpath-perl/debian/source/local-options?rev=77276&op=file
==============================================================================
--- trunk/libhtml-treebuilder-xpath-perl/debian/source/local-options (added)
+++ trunk/libhtml-treebuilder-xpath-perl/debian/source/local-options Fri Jul  8 22:17:58 2011
@@ -1,0 +1,2 @@
+abort-on-upstream-changes
+unapply-patches

Modified: trunk/libhtml-treebuilder-xpath-perl/lib/HTML/TreeBuilder/XPath.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-treebuilder-xpath-perl/lib/HTML/TreeBuilder/XPath.pm?rev=77276&op=diff
==============================================================================
--- trunk/libhtml-treebuilder-xpath-perl/lib/HTML/TreeBuilder/XPath.pm (original)
+++ trunk/libhtml-treebuilder-xpath-perl/lib/HTML/TreeBuilder/XPath.pm Fri Jul  8 22:17:58 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