X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=perl-sax%2FXML%2FTemplateSAX%2FBuffer.pm;h=cfae23546dafb4bf8fd1f9c3defd90f99a2eb75a;hb=2ab1d6484612b3c908085b6168326ac925302c0d;hp=f7a141b64d162b977c0c5555f6dd0f95d956c463;hpb=672fc78eaa0837b59d90d0926433739aeac1f93b;p=xml-template

diff --git a/perl-sax/XML/TemplateSAX/Buffer.pm b/perl-sax/XML/TemplateSAX/Buffer.pm
index f7a141b..cfae235 100644
--- 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;