From 0243d3deae35114f7160263a9d3bb59c8644f727 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Sat, 24 May 2008 13:27:21 -0500
Subject: make passing 0 in as the end position to buffer work properly

---
 lib/Language/TECO/Buffer.pm | 5 +++--
 1 file 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;
 }
 
-- 
cgit v1.2.3