Fix some cleaning bugs.

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

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