diff options
-rw-r--r-- | lib/Language/TECO/Buffer.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm index b884495..d997c85 100644 --- a/lib/Language/TECO/Buffer.pm +++ b/lib/Language/TECO/Buffer.pm @@ -16,8 +16,9 @@ sub endpos { length shift->{buffer} } sub buffer { my $self = shift; - my $start = shift || 0; - my $end = shift || $self->endpos; + my ($start, $end) = @_; + $start = 0 unless defined $start; + $end = $self->endpos unless defined $end; return substr $self->{buffer}, $start, $end - $start; } |