diff options
| -rw-r--r-- | lib/Language/TECO.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index cd48bde..46f0918 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -95,6 +95,7 @@ sub execute { $_ = substr($self->{command}, 0, 1, ''); if (/[0-9]/) { my $num = $self->num || 0; + $_ = -$_ if $num < 0; $self->num($num * 10 + $_); } elsif (/-/) { |