In the Perl variant, do a clean on a newly inserted DOM tree.

diff --git a/perl/XML/Template.pm b/perl/XML/Template.pm
index ed44d63ddeb5abab7989f38bbe5734ce1b05fe27..ad54a159100168aaf4806a120c16d8899cdb770e 100644 (file)
--- a/perl/XML/Template.pm
+++ b/perl/XML/Template.pm
@@ -45,6 +45,8 @@ sub process {
                        $newobj->setOwnerDocument($node->getOwnerDocument);
                }
                $node->appendChild($newobj);
+
+               clean($newobj, $nsup) if ($clean);
        } elsif (ref($obj) eq 'HASH') {                                         # substitute
                for my $child ($node->getChildNodes) {
                        my $processed = 0;
@@ -63,7 +65,6 @@ sub process {
                                                }
                                        }
                                }
-                               print $child->getTagName, "\n";
 
                                my (undef, undef, $tag) = $nsup->process_element_name($child->getTagName);