From 3e5cc56a9748cb84342e54ce89e02582bb6a5ec8 Mon Sep 17 00:00:00 2001
From: "sgunderson@bigfoot.com" <>
Date: Thu, 1 Mar 2007 12:49:46 +0100
Subject: [PATCH] Fix up the SAX cleaner. Passes cloning test!

---
 perl-sax/XML/TemplateSAX/Cleaner.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/perl-sax/XML/TemplateSAX/Cleaner.pm b/perl-sax/XML/TemplateSAX/Cleaner.pm
index 52b7fe3..e5f784a 100644
--- 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;
-- 
2.39.2