Fix some junk; Cleaner doesn't take an object.

diff --git a/perl-sax/XML/TemplateSAX.pm b/perl-sax/XML/TemplateSAX.pm
index 638f4b2582425d0539564a1351beb62f05c7bf51..b473dd05cfe910b8343d474c25248c1359fe8872 100644 (file)
--- 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);