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

1 files changed, 2 insertions, 1 deletions

diff --git a/bin/te b/bin/te
index d9a8489..d50aed4 100644
--- a/bin/te
+++ b/bin/te
@@ -33,8 +33,9 @@ COMMAND: while (1) {
                 print "\n";
                 ReadMode 3;
                 local $SIG{INT} = sub { die "Execution interrupted" };
-                eval { $te->execute($command) };
+                my $result = eval { $te->execute($command) };
                 print "?  $@\n" if $@;
+                print $result if defined $result;
                 ReadMode 4;
                 last KEY;
             }