diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 00:31:08 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 00:31:08 -0500 |
| commit | e3ee93d4a494ff8536b3e6153055113784317048 (patch) | |
| tree | 4dc34c9035eb92a43c95a2b9ec8eb79c15acee98 | |
| parent | 33e34235737f692bdfe781e47dd571bb08156972 (diff) | |
| download | language-teco-e3ee93d4a494ff8536b3e6153055113784317048.tar.gz language-teco-e3ee93d4a494ff8536b3e6153055113784317048.zip | |
need to match the end of the buffer as well as the end of a line
| -rw-r--r-- | lib/Language/TECO.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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}, |