From d86dd6f01d6df81558cde479f842121ac390150f Mon Sep 17 00:00:00 2001
From: "sgunderson@bigfoot.com" <>
Date: Thu, 1 Mar 2007 15:09:33 +0100
Subject: [PATCH] Fix some junk; Cleaner doesn't take an object.

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

diff --git a/perl-sax/XML/TemplateSAX.pm b/perl-sax/XML/TemplateSAX.pm
index 638f4b2..b473dd0 100644
--- a/perl-sax/XML/TemplateSAX.pm
+++ b/perl-sax/XML/TemplateSAX.pm
@@ -37,7 +37,7 @@ sub process_file {
 	$writer = XML::SAX::Writer->new(Output => \$str);
 
 	if ($clean) {
-		$cleaner = XML::TemplateSAX::Cleaner->new(Handler => $writer, Content => $obj);
+		$cleaner = XML::TemplateSAX::Cleaner->new(Handler => $writer);
 		$filter = XML::TemplateSAX::Handler->new(Handler => $cleaner, Content => $obj);
 	} else {
 		$filter = XML::TemplateSAX::Handler->new(Handler => $writer, Content => $obj);
@@ -59,7 +59,7 @@ sub process_file_to_buffer {
 	$buffer = XML::TemplateSAX::Buffer->new;
 
 	if ($clean) {
-		$cleaner = XML::TemplateSAX::Cleaner->new(Handler => $buffer, Content => $obj);
+		$cleaner = XML::TemplateSAX::Cleaner->new(Handler => $buffer);
 		$filter = XML::TemplateSAX::Handler->new(Handler => $cleaner, Content => $obj);
 	} else {
 		$filter = XML::TemplateSAX::Handler->new(Handler => $buffer, Content => $obj);
-- 
2.39.2