From a6355c532f69b038ceb3214c329696d2a04e5c11 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Sat, 24 May 2008 18:05:05 -0500
Subject: need to wrap the = command in ->cmd()

---
 lib/Language/TECO.pm | 7 +++++--
 1 file 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 {
-- 
cgit v1.2.3