diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-26 15:35:45 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-26 15:35:45 -0500 |
| commit | 7e2c0bc47f5b90f301cc6bba46cd79edfc1c05ca (patch) | |
| tree | 01b5bd04381bd375051a109e7801f8bdfb968406 | |
| parent | 54aa5a2f7ae81b9a2184c5431b9291fcd5650f0d (diff) | |
| download | language-teco-7e2c0bc47f5b90f301cc6bba46cd79edfc1c05ca.tar.gz language-teco-7e2c0bc47f5b90f301cc6bba46cd79edfc1c05ca.zip | |
if we fail to parse a character, just skip it and move on
| -rw-r--r-- | lib/Language/TECO.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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; |