From 4bccc7141cc1ad0e3006baaa25de195e1bf1da44 Mon Sep 17 00:00:00 2001
From: "sgunderson@bigfoot.com" <>
Date: Sat, 12 Aug 2006 22:13:44 +0200
Subject: [PATCH] "Deep clean" the DOM object we include.

---
 perl/XML/Template.pm | 2 +-
 php/xml-template.php | 4 +---
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/perl/XML/Template.pm b/perl/XML/Template.pm
index ad54a15..80115fc 100644
--- 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 cc98edc..91dfa8d 100644
--- 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);
-- 
2.39.2