From e3ee93d4a494ff8536b3e6153055113784317048 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 00:31:08 -0500
Subject: need to match the end of the buffer as well as the end of a line

---
 lib/Language/TECO.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm
index 1bc2043..606a6fc 100644
--- a/lib/Language/TECO.pm
+++ b/lib/Language/TECO.pm
@@ -187,7 +187,7 @@ sub execute {
                     }
                     my $num = $self->num;
                     if ($num > 0) {
-                        my $regex = "(?:.*\n){$num}";
+                        my $regex = "(?:.*(?:\n|\$)){$num}";
                         pos $self->{buffer}->{buffer} = $self->{buffer}->{pointer};
                         $self->{buffer}->{buffer} =~ /$regex/g;
                         $self->{buffer}->print($self->{buffer}->{pointer},
-- 
cgit v1.2.3-54-g00ecf