From e70442358c76101e546f1233f62d7e8c4ee5cea8 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 13:58:42 -0500
Subject: multi-character numbers need to subtract subsequent digits if we are
 in the middle of a negated number

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

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 (/-/) {
-- 
cgit v1.2.3-54-g00ecf