From: sgunderson@bigfoot.com <>
Date: Sat, 12 Aug 2006 19:28:28 +0000 (+0200)
Subject: In the Perl variant, do a clean on a newly inserted DOM tree.
X-Git-Url: https://git.sesse.net/?a=commitdiff_plain;h=6f4e900d6a8e515bb8d9dc8dfbd17943c97efd7d;p=xml-template

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 ed44d63..ad54a15 100644
--- 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);