diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 00:35:04 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 00:35:04 -0500 |
| commit | 3e5b663797fb92f595d3d21313726d9bfeab5635 (patch) | |
| tree | fbb9433d660d19727ee3c752004f8958bee78741 | |
| parent | e3ee93d4a494ff8536b3e6153055113784317048 (diff) | |
| download | language-teco-3e5b663797fb92f595d3d21313726d9bfeab5635.tar.gz language-teco-3e5b663797fb92f595d3d21313726d9bfeab5635.zip | |
oops, $num has to be non-negative here
| -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}; |