rpms/perl-XML-TreeBuilder/devel XML-TreeBuilder-NoExpand.patch, 1.4, 1.5 perl-XML-TreeBuilder.spec, 1.7, 1.8

[Jeff Fearn]

Author: jfearn

Update of /cvs/pkgs/rpms/perl-XML-TreeBuilder/devel
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv29187

Modified Files:
	XML-TreeBuilder-NoExpand.patch perl-XML-TreeBuilder.spec 
Log Message:
sigh, previous patch was eating entities


XML-TreeBuilder-NoExpand.patch:
 Changes                |    7 ++
 lib/XML/TreeBuilder.pm |  116 +++++++++++++++++++++++++++++++++----------------
 t/10main.t             |   26 +++++++++-
 3 files changed, 108 insertions(+), 41 deletions(-)

Index: XML-TreeBuilder-NoExpand.patch
===================================================================
RCS file: /cvs/pkgs/rpms/perl-XML-TreeBuilder/devel/XML-TreeBuilder-NoExpand.patch,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- XML-TreeBuilder-NoExpand.patch	28 Sep 2009 04:05:07 -0000	1.4
+++ XML-TreeBuilder-NoExpand.patch	28 Sep 2009 23:41:24 -0000	1.5
@@ -15,7 +15,7 @@ diff -rubB --exclude=.svn --exclude='*.s
  
 diff -rubB --exclude=.svn --exclude='*.swp'
XML-TreeBuilder-3.09/lib/XML/TreeBuilder.pm
XML-TreeBuilder-patched/lib/XML/TreeBuilder.pm
 --- XML-TreeBuilder-3.09/lib/XML/TreeBuilder.pm	2004-06-11 13:59:14.000000000 +1000
-+++ XML-TreeBuilder-patched/lib/XML/TreeBuilder.pm	2009-09-28 13:51:25.000000000 +1000
++++ XML-TreeBuilder-patched/lib/XML/TreeBuilder.pm	2009-09-29 09:21:18.000000000 +1000
 @@ -5,6 +7,7 @@
  use strict;
  use XML::Element ();
@@ -33,7 +33,7 @@ diff -rubB --exclude=.svn --exclude='*.s
 +    my ( $this, $arg ) = @_;
 +    my $class = ref($this) || $this;
 +
-+    my $NoExpand = ( delete $arg->{'NoExpand'} || undef );
++    my $NoExpand     = ( delete $arg->{'NoExpand'}     || undef );
 +    my $ErrorContext = ( delete $arg->{'ErrorContext'} || undef );
 +
 +    if ( %{$arg} ) {
@@ -42,7 +42,7 @@ diff -rubB --exclude=.svn --exclude='*.s
    
    my $self = XML::Element->new('NIL');
    bless $self, $class; # and rebless
-@@ -21,44 +31,53 @@
+@@ -21,57 +31,76 @@
    $self->{'_store_comments'}     = 0;
    $self->{'_store_pis'}          = 0;
    $self->{'_store_declarations'} = 0;
@@ -65,8 +65,6 @@ diff -rubB --exclude=.svn --exclude='*.s
      'Start' => sub {
        shift;
 -      if(@stack) {
-+                $self->attr('NoExpand', undef);
-+                $self->attr('ErrorContext', undef);
 +                if (@stack) {
           push @stack, $self->{'_element_class'}->new(@_);
           $stack[-2]->push_content( $stack[-1] );
@@ -111,7 +109,20 @@ diff -rubB --exclude=.svn --exclude='*.s
         return;
      },
      
-@@ -67,11 +86,11 @@
++            'Final' => sub {
++                $self->root()->traverse(
++                    sub {
++                        my ( $node, $start ) = @_;
++                        if ( ref $node ) {    # it's an element
++                            $node->attr( 'NoExpand',     undef );
++                            $node->attr( 'ErrorContext', undef );
++                        }
++                    }
++                );
++            },
++
+     # And now, declarations:
+     
      'Attlist' => sub {
         return unless $self->{'_store_declarations'};
         shift;
@@ -128,7 +139,7 @@ diff -rubB --exclude=.svn --exclude='*.s
           )
         );
         return;
-@@ -80,11 +99,11 @@
+@@ -80,11 +109,11 @@
      'Element' => sub {
         return unless $self->{'_store_declarations'};
         shift;
@@ -145,7 +156,7 @@ diff -rubB --exclude=.svn --exclude='*.s
           )
         );
         return;
-@@ -93,17 +112,32 @@
+@@ -93,17 +122,32 @@
      'Doctype' => sub {
         return unless $self->{'_store_declarations'};
         shift;
@@ -184,7 +195,7 @@ diff -rubB --exclude=.svn --exclude='*.s
    
    return $self;
  }
-@@ -110,15 +145,15 @@
+@@ -110,15 +155,15 @@
  #==========================================================================
  sub _elem # universal accessor...
  {
@@ -205,8 +216,8 @@ diff -rubB --exclude=.svn --exclude='*.s
  #==========================================================================
  
 diff -rubB --exclude=.svn --exclude='*.swp' XML-TreeBuilder-3.09/t/10main.t
XML-TreeBuilder-patched/t/10main.t
---- XML-TreeBuilder-3.09/t/10main.t	2004-06-11 14:22:53.000000000 +1000
-+++ XML-TreeBuilder-patched/t/10main.t	2009-09-28 13:59:55.000000000 +1000
+--- XML-TreeBuilder-3.09/t/10main.t	2009-09-28 14:00:50.000000000 +1000
++++ XML-TreeBuilder-patched/t/10main.t	2009-09-28 14:00:54.000000000 +1000
 @@ -2,7 +2,7 @@
  # Time-stamp: "2004-06-10 20:22:53 ADT" 
  
@@ -226,7 +237,7 @@ diff -rubB --exclude=.svn --exclude='*.s
  
  unless( $ENV{'HARNESS_ACTIVE'} ) {
    $x->dump;
-@@ -45,6 +44,27 @@
+@@ -43,6 +44,27 @@
  $x->delete;
  $y->delete;
  


Index: perl-XML-TreeBuilder.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-XML-TreeBuilder/devel/perl-XML-TreeBuilder.spec,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- perl-XML-TreeBuilder.spec	28 Sep 2009 04:05:08 -0000	1.7
+++ perl-XML-TreeBuilder.spec	28 Sep 2009 23:41:24 -0000	1.8
@@ -1,7 +1,7 @@
 Summary:	Parser that builds a tree of XML::Element objects
 Name:		perl-XML-TreeBuilder
 Version:	3.09
-Release:	15%{?dist}
+Release:	16%{?dist}
 License:	GPL+ or Artistic
 Group:		Development/Libraries
 URL:		http://search.cpan.org/dist/XML-TreeBuilder/
@@ -50,6 +50,9 @@ find $RPM_BUILD_ROOT -name .packlist -ex
 %{perl_vendorlib}/XML/
 
 %changelog
+* Tue Sep 29 2009  Jeff Fearn <jfearn(a)redhat.com&gt; - 3.09-16
+- Stupid man! Don't eat entities :(
+
 * Mon Sep 28 2009  Jeff Fearn <jfearn(a)redhat.com&gt; - 3.09-15
 - Always remove NoExpand and ErrorContext from output