diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-24 18:05:05 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-24 18:05:05 -0500 |
| commit | a6355c532f69b038ceb3214c329696d2a04e5c11 (patch) | |
| tree | 8c0fe42a8fb02d10ffdf236d8c941b7bb0ae9703 | |
| parent | 937403fd61db43b46d8435a094d049486f55a991 (diff) | |
| download | language-teco-a6355c532f69b038ceb3214c329696d2a04e5c11.tar.gz language-teco-a6355c532f69b038ceb3214c329696d2a04e5c11.zip | |
need to wrap the = command in ->cmd()
| -rw-r--r-- | lib/Language/TECO.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index cf7da33..10ebc92 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -211,8 +211,11 @@ sub execute { }); } elsif (/=/i) { - my $fmt = ($self->{command} =~ s/^=//) ? "%o%s" : "%d%s"; - $ret .= sprintf $fmt, $self->num, $self->colon ? "" : "\n"; + $self->cmd(sub { + my $self = shift; + my $fmt = ($self->{command} =~ s/^=//) ? "%o%s" : "%d%s"; + $ret .= sprintf $fmt, $self->num, $self->colon ? "" : "\n"; + }); } elsif (/t/i) { $self->cmd(sub { |