use strict, use warnins. Glah!

[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..8593a323a64d983d31e5d3e6c103ae02b1bf00bb 100644 (file)
--- a/perl-sax/XML/TemplateSAX/Buffer.pm
+++ b/perl-sax/XML/TemplateSAX/Buffer.pm
@@ -3,15 +3,18 @@
 # A utility class that can store SAX events and replay them back to some SAX
 # handler as many times as you'd like. Useful for both cloning and including.
 
+use strict;
+use warnings;
 package XML::TemplateSAX::Buffer;
 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;