diff options
| -rw-r--r-- | lib/Language/TECO.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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}; |