"Deep clean" the DOM object we include.

[xml-template] / perl / XML / Template.pm

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;