diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-26 15:26:40 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-26 15:26:40 -0500 |
| commit | 54aa5a2f7ae81b9a2184c5431b9291fcd5650f0d (patch) | |
| tree | 8c4493ecfcba4da231c06bebda78124a09ad4a0b | |
| parent | 919efcdf3ad6d542a1f67caef6f0d4a2df12b854 (diff) | |
| download | language-teco-54aa5a2f7ae81b9a2184c5431b9291fcd5650f0d.tar.gz language-teco-54aa5a2f7ae81b9a2184c5431b9291fcd5650f0d.zip | |
reset before executing anything
| -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 affd767..1621349 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -231,6 +231,7 @@ sub execute { my $self = shift; my $command = shift; $self->clear_ret; + $self->reset; while ($command) { my ($num, $negate); |