"Deep clean" the DOM object we include.

diff --git a/perl/XML/Template.pm b/perl/XML/Template.pm
index ad54a159100168aaf4806a120c16d8899cdb770e..80115fcdbb55cbc9fc6f215f46284b3196f0fb03 100644 (file)
--- a/perl/XML/Template.pm
+++ b/perl/XML/Template.pm
@@ -46,7 +46,7 @@ sub process {
                }
                $node->appendChild($newobj);
 
-               clean($newobj, $nsup) if ($clean);
+               process($newobj, {}, $clean, $nsup);
        } elsif (ref($obj) eq 'HASH') {                                         # substitute
                for my $child ($node->getChildNodes) {
                        my $processed = 0;

diff --git a/php/xml-template.php b/php/xml-template.php
index cc98edc02bbc33a5144b6083e32146ee2cf04913..91dfa8d45ad1017625b9c6b17dd9e473d5fbfaf1 100644 (file)
--- a/php/xml-template.php
+++ b/php/xml-template.php
@@ -21,9 +21,7 @@ function XML_Template_process($node, $obj, $clean = 1)
                $newobj = $obj->clone_node(true);
                $node->append_child($newobj);
 
-               if ($clean) {
-                       clean($newobj);
-               }
+               XML_Template_process($newobj, array(), $clean);
        } else if (!is_array($obj)) {                         # overwrite
                foreach ($node->child_nodes() as $child) {
                        $node->remove_child($child);