From 33e34235737f692bdfe781e47dd571bb08156972 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 00:24:39 -0500
Subject: the t command has default of 1 (or -1)

---
 lib/Language/TECO.pm | 3 +++
 1 file changed, 3 insertions(+)

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}";
-- 
cgit v1.2.3-54-g00ecf