From 9608cac9cbd15eee571b6d7156de6e44e6e7c498 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Fri, 8 Sep 2017 00:21:41 -0700
Subject: [PATCH] Properly pass date to default VM languages

---
 modules/compiler_vm/languages/server/_default.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/modules/compiler_vm/languages/server/_default.pm b/modules/compiler_vm/languages/server/_default.pm
index fcbbffa9..bafe1282 100755
--- a/modules/compiler_vm/languages/server/_default.pm
+++ b/modules/compiler_vm/languages/server/_default.pm
@@ -45,8 +45,7 @@ sub preprocess {
     close $fh;
 
     print "Executing [$self->{cmdline}] without print_last_statement\n";
-    my ($retval, $result) = $self->execute(60, $self->{cmdline});
-
+    my ($retval, $result) = $self->execute(60, "bash -c \"date -s \@$self->{date} > /dev/null; ulimit -t 5; $self->{cmdline}\"");
     $self->{output} = $result;
     $self->{error}  = $retval;
 
@@ -57,7 +56,7 @@ sub preprocess {
       close $fh;
 
       print "Executing [$self->{cmdline}] with print_last_statement\n";
-      $self->execute(60, $self->{cmdline});
+      my ($retval, $result) = $self->execute(60, "bash -c \"date -s \@$self->{date} > /dev/null; ulimit -t 5; $self->{cmdline}\"");
     }
   } else {
     open(my $fh, '>', $self->{sourcefile}) or die $!;
@@ -65,8 +64,7 @@ sub preprocess {
     close $fh;
 
     print "Executing [$self->{cmdline}]\n";
-    my ($retval, $result) = $self->execute(60, $self->{cmdline});
-
+    my ($retval, $result) = $self->execute(60, "bash -c \"date -s \@$self->{date} > /dev/null; ulimit -t 5; $self->{cmdline}\"");
     $self->{output} = $result;
     $self->{error}  = $retval;
   }