diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 00:24:39 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 00:24:39 -0500 |
| commit | 33e34235737f692bdfe781e47dd571bb08156972 (patch) | |
| tree | fbaaf4817d7a8499be467b36b8c84aa3a8a64ed6 | |
| parent | c854f6ad447a5a21e0b3c739bdfbf307c2f2a184 (diff) | |
| download | language-teco-33e34235737f692bdfe781e47dd571bb08156972.tar.gz language-teco-33e34235737f692bdfe781e47dd571bb08156972.zip | |
the t command has default of 1 (or -1)
| -rw-r--r-- | lib/Language/TECO.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index 9c39886..1bc2043 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -182,6 +182,9 @@ sub execute { $self->{buffer}->print(($self->num)); } else { + if (!defined $self->num) { + $self->num(1); + } my $num = $self->num; if ($num > 0) { my $regex = "(?:.*\n){$num}"; |