From 0d37de9edad9d9066be4b133d9cd877319aed7ec Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Sat, 24 May 2008 13:26:32 -0500
Subject: make the argument to t a maximum on the number of lines printed, not
 have to be exact

---
 lib/Language/TECO/Buffer.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm
index 4365e10..b884495 100644
--- a/lib/Language/TECO/Buffer.pm
+++ b/lib/Language/TECO/Buffer.pm
@@ -71,7 +71,7 @@ sub get_line_offset {
 
     if ($num > 0) {
         pos $self->{buffer} = $self->curpos;
-        $self->{buffer} =~ /(?:.*(?:\n|$)){$num}/g;
+        $self->{buffer} =~ /(?:.*(?:\n|$)){0,$num}/g;
         return ($-[0], $+[0]) if wantarray;
         return $+[0];
     }
@@ -80,7 +80,7 @@ sub get_line_offset {
         my $rev = reverse $self->buffer;
         my $len = $self->endpos;
         pos $rev = $len - $self->curpos;
-        $rev =~ /.*?(?:\n.*?){$num}(?=\n|$)/g;
+        $rev =~ /.*?(?:\n.*?){0,$num}(?=\n|$)/g;
         return ($len - $+[0], $len - $-[0]) if wantarray;
         return $len - $+[0];
     }
-- 
cgit v1.2.3-54-g00ecf