From a53b5473aeb0a9def8e208e48e41591b96602030 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sat, 24 Jan 2015 11:53:23 -0800
Subject: [PATCH] TenDRA: Show exit code return value from main()

---
 modules/compiler_vm/languages/server/tendra.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/modules/compiler_vm/languages/server/tendra.pm b/modules/compiler_vm/languages/server/tendra.pm
index d1bfa530..47e514be 100755
--- a/modules/compiler_vm/languages/server/tendra.pm
+++ b/modules/compiler_vm/languages/server/tendra.pm
@@ -20,6 +20,8 @@ sub postprocess {
   $input_quoted =~ s/\\"/"'\\"'"/g;
   my ($retval, $result) = $self->execute(60, "bash -c \"date -s \@$self->{date}; ulimit -t 1; /home/compiler/prog <<< echo $input_quoted > .output\"");
 
+  $self->{error} = $retval;
+
   $result = "";
   open(FILE, '.output');
   while(<FILE>) {