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

---
 bin/te | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'bin')

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;
             }
-- 
cgit v1.2.3-54-g00ecf