diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 00:19:31 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 00:19:31 -0500 |
commit | 1bae28e66cf4f57f359798c8e0e252cb7d7e60c9 (patch) | |
tree | 3a33d83ff389dc15d6c37194ae929480f9cc709b | |
parent | 624946cfdb1d7dab03ed61a38bf3b47abca38193 (diff) | |
download | language-teco-1bae28e66cf4f57f359798c8e0e252cb7d7e60c9.tar.gz language-teco-1bae28e66cf4f57f359798c8e0e252cb7d7e60c9.zip |
catch : and @ command modifiers, this might need to be made more precise later on
-rw-r--r-- | lib/Language/TECO.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index 04b0ccf..587d641 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -116,6 +116,12 @@ sub execute { elsif (/,/) { $self->{current_num} = 'n2'; } + elsif (/:/) { + $self->{colon} = 1; + } + elsif (/@/) { + $self->{at} = 1; + } elsif (/i/i) { if (defined $self->num) { $self->cmd(sub { |