From 864faa69de03bb2755b25a112045d7f5b3aacd26 Mon Sep 17 00:00:00 2001
From: "sgunderson@bigfoot.com" <>
Date: Thu, 1 Mar 2007 15:28:51 +0100
Subject: [PATCH] Fix the cleaner so it doesn't confuse the layers above. All
 perl-sax tests passes again!

---
 perl-sax/XML/TemplateSAX/Cleaner.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/perl-sax/XML/TemplateSAX/Cleaner.pm b/perl-sax/XML/TemplateSAX/Cleaner.pm
index e5f784a..6269306 100644
--- a/perl-sax/XML/TemplateSAX/Cleaner.pm
+++ b/perl-sax/XML/TemplateSAX/Cleaner.pm
@@ -7,9 +7,12 @@ 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/');
+
+	# we need to make a copy here, or we'll confuse the upper layers.
+	$data = { %$data };
+	my $attrs = $data->{'Attributes'} = { %{$data->{'Attributes'}} };
+	
 	for my $a (keys %$attrs) {
 		if ($attrs->{$a}->{'NamespaceURI'} eq 'http://template.sesse.net/') {
 			delete $attrs->{$a};
-- 
2.39.2