diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 13:58:42 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 13:58:42 -0500 |
commit | e70442358c76101e546f1233f62d7e8c4ee5cea8 (patch) | |
tree | a0f402b2620d73de198ff6c7aa3bd42411b48e17 | |
parent | 148571cad607caf011c8a8641645736c150eb54f (diff) | |
download | language-teco-e70442358c76101e546f1233f62d7e8c4ee5cea8.tar.gz language-teco-e70442358c76101e546f1233f62d7e8c4ee5cea8.zip |
multi-character numbers need to subtract subsequent digits if we are in the middle of a negated number
-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 (/-/) { |