From 9e934ef2402d8ca7fd926f2b2c36ca63801aed86 Mon Sep 17 00:00:00 2001
From: "sgunderson@bigfoot.com" <>
Date: Thu, 1 Mar 2007 13:26:12 +0100
Subject: [PATCH] Fix include for perl-sax. Now only need to fix the test.

---
 perl-sax/XML/TemplateSAX/Handler.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

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;
-- 
2.39.2