Fix up the SAX cleaner. Passes cloning test!

[xml-template] / perl-sax / XML / TemplateSAX / Cleaner.pm

diff --git a/perl-sax/XML/TemplateSAX/Cleaner.pm b/perl-sax/XML/TemplateSAX/Cleaner.pm
index 92c8da96abc34f65f1a8e7b210bbecd8243380b1..e5f784acd2c11332d33bd149cc9d8bb0c1938b6b 100644 (file)
--- a/perl-sax/XML/TemplateSAX/Cleaner.pm
+++ b/perl-sax/XML/TemplateSAX/Cleaner.pm
@@ -1,12 +1,15 @@
 #! /usr/bin/perl
 
+use strict;
+use warnings;
 package XML::TemplateSAX::Cleaner;
 use base qw(XML::SAX::Base);
 
 sub start_element {
        my ($self, $data) = @_;
        my $attrs = $data->{'Attributes'};
-
+       
+       return if ($data->{'NamespaceURI'} eq 'http://template.sesse.net/');
        for my $a (keys %$attrs) {
                if ($attrs->{$a}->{'NamespaceURI'} eq 'http://template.sesse.net/') {
                        delete $attrs->{$a};
@@ -15,5 +18,13 @@ sub start_element {
 
        $self->SUPER::start_element($data);
 }
+       
+sub end_element {
+       my ($self, $data) = @_;
+
+       return if ($data->{'NamespaceURI'} eq 'http://template.sesse.net/');
+       
+       $self->SUPER::end_element($data);
+}
 
 1;