Fix up the SAX cleaner. Passes cloning test!

diff --git a/perl-sax/XML/TemplateSAX/Cleaner.pm b/perl-sax/XML/TemplateSAX/Cleaner.pm
index 52b7fe305e0a1afca844bbfd356818192060ae8c..e5f784acd2c11332d33bd149cc9d8bb0c1938b6b 100644 (file)
--- a/perl-sax/XML/TemplateSAX/Cleaner.pm
+++ b/perl-sax/XML/TemplateSAX/Cleaner.pm
@@ -8,7 +8,8 @@ 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};
@@ -17,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;