From 7e2c0bc47f5b90f301cc6bba46cd79edfc1c05ca Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Mon, 26 May 2008 15:35:45 -0500
Subject: if we fail to parse a character, just skip it and move on

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

diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm
index 1621349..779656d 100644
--- a/lib/Language/TECO.pm
+++ b/lib/Language/TECO.pm
@@ -242,7 +242,9 @@ sub execute {
         elsif ($negate) {
             $self->negate(1);
         }
-        $command = $self->try_cmd($command);
+        my $new_command = $self->try_cmd($command);
+        substr($new_command, 0, 1, '') if $new_command eq $command;
+        $command = $new_command;
     }
 
     return $self->ret;
-- 
cgit v1.2.3-54-g00ecf