diff options
Diffstat (limited to 'lib/Language/TECO/Buffer.pm')
-rw-r--r-- | lib/Language/TECO/Buffer.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm index 8056391..47c65cb 100644 --- a/lib/Language/TECO/Buffer.pm +++ b/lib/Language/TECO/Buffer.pm @@ -4,7 +4,10 @@ use warnings; package Language::TECO::Buffer; sub new { - return bless { buffer => '', pointer => 0 }, shift; + my $class = shift; + my $initial_buffer = shift; + $initial_buffer = '' unless defined $initial_buffer; + return bless { buffer => $initial_buffer, pointer => 0 }, $class; } sub set { |