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

[xml-template] / perl-sax / XML / TemplateSAX / Handler.pm

diff --git a/perl-sax/XML/TemplateSAX/Handler.pm b/perl-sax/XML/TemplateSAX/Handler.pm
index eb10ac6b3e81b58bcf24d33a2e9007514ec667f1..a0a40b2558ac76cc56014c0c4e3f8028d11295a4 100644 (file)
--- 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;