diff options
Diffstat (limited to 'lib')
-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}"; |