From: sgunderson@bigfoot.com <>
Date: Thu, 1 Mar 2007 12:26:12 +0000 (+0100)
Subject: Fix include for perl-sax. Now only need to fix the test.
X-Git-Url: https://git.sesse.net/?p=xml-template;a=commitdiff_plain;h=9e934ef2402d8ca7fd926f2b2c36ca63801aed86

Fix include for perl-sax. Now only need to fix the test.
---

diff --git a/perl-sax/XML/TemplateSAX/Handler.pm b/perl-sax/XML/TemplateSAX/Handler.pm
index eb10ac6..a0a40b2 100644
--- a/perl-sax/XML/TemplateSAX/Handler.pm
+++ b/perl-sax/XML/TemplateSAX/Handler.pm
@@ -86,6 +86,15 @@ sub start_element {
 				$self->{'obj'} = XML::TemplateSAX::Buffer->new($match);
 				return;
 			}
+
+			#
+			# If someone tries to insert a full tree, do it, just like the character
+			# replacement above.
+			#
+			if (ref($match) eq 'XML::TemplateSAX::Buffer') {
+				$match->replay($self);
+				$self->{'obj'} = undef;
+			}
 			
 			$self->{'obj'} = $match;
 			return;