From a776c55b160c99e1c507c0c08227b692cfe1b31a Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 15:41:42 -0500
Subject: make execute return anything that would be printed to stdout, rather
 than printing it directly

---
 lib/Language/TECO.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib/Language/TECO.pm')

diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm
index 7d2d63e..4aee5a3 100644
--- a/lib/Language/TECO.pm
+++ b/lib/Language/TECO.pm
@@ -90,6 +90,7 @@ sub push_cmd {
 sub execute {
     my $self = shift;
     $self->{command} = shift;
+    my $ret = '';
 
     while ($self->{command}) {
         $_ = substr($self->{command}, 0, 1, '');
@@ -215,11 +216,13 @@ sub execute {
                         $self->num(1);
                     }
                     my $num = $self->num;
-                    $self->{buffer}->print($self->{buffer}->get_line_offset($num));
+                    $ret .= $self->{buffer}->print($self->{buffer}->get_line_offset($num));
                 }
             });
         }
     }
+
+    return $ret;
 }
 
 =head1 NAME
-- 
cgit v1.2.3-54-g00ecf