From 3e5b663797fb92f595d3d21313726d9bfeab5635 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 00:35:04 -0500
Subject: oops, $num has to be non-negative here

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

diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm
index 606a6fc..f2fea09 100644
--- a/lib/Language/TECO.pm
+++ b/lib/Language/TECO.pm
@@ -194,6 +194,7 @@ sub execute {
                                                $+[0]);
                     }
                     else {
+                        $num = -$num;
                         my $rev = reverse $self->{buffer}->{buffer};
                         my $regex = ".*?(?:\n.*?){$num}(?=\n|\$)";
                         pos $rev = length($self->{buffer}->{buffer}) - $self->{buffer}->{pointer};
-- 
cgit v1.2.3-54-g00ecf