make execute return anything that would be printed to stdout, rather than printing it directly

1 files changed, 4 insertions, 1 deletions

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