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}";