Almost fix cloning. Yay!

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

diff --git a/perl-sax/XML/TemplateSAX/Buffer.pm b/perl-sax/XML/TemplateSAX/Buffer.pm
index f7a141b64d162b977c0c5555f6dd0f95d956c463..cfae23546dafb4bf8fd1f9c3defd90f99a2eb75a 100644 (file)
--- a/perl-sax/XML/TemplateSAX/Buffer.pm
+++ b/perl-sax/XML/TemplateSAX/Buffer.pm
@@ -8,10 +8,11 @@ use base qw(XML::SAX::Base);
 
 sub new {
        my $class = shift;
-       my %options = @_;
+       my $ptr = shift;
 
        my $self = {
-               events => []
+               events => [],
+               ptr => $ptr
        };
        bless($self, $class);
        return $self;