Fix some cleaning bugs.

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

diff --git a/perl/XML/Template.pm b/perl/XML/Template.pm
index ad54a159100168aaf4806a120c16d8899cdb770e..19fa47082f7e7cb64021ae9be39a0e93c45eae52 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;
@@ -121,7 +121,6 @@ sub process {
                }
 
                $frag->dispose;
-               return;
        }
 
        clean($node, $nsup) if $clean;