From c63356fa7b2f3eda50a96317263f11c6a4d3deef Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Sat, 1 Apr 2017 15:15:50 -0400
Subject: [PATCH] Add two more syscalls for newer perls

---
 bin/testeval.sh | 2 +-
 lib/eval.pl     | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/bin/testeval.sh b/bin/testeval.sh
index b55e057..c0d4d84 100755
--- a/bin/testeval.sh
+++ b/bin/testeval.sh
@@ -1,7 +1,7 @@
 #!/bin/bash
 
 read -r -d '' CODE <<'EOC'
-perl print "Hello"; exec('perl5/perlbrew/perls/perl-5.10.0/bin/perl', "-e", "print 1")
+perl5.24 print "Hello World";
 EOC
 
 echo --------
diff --git a/lib/eval.pl b/lib/eval.pl
index f23d77f..6afa50d 100755
--- a/lib/eval.pl
+++ b/lib/eval.pl
@@ -97,7 +97,10 @@ sub get_seccomp {
     $rule_add->(arch_prctl => );
     $rule_add->(readlink => );
     $rule_add->(getpid => );
-
+    
+    $rule_add->(set_tid_address => ); # needed for perl >= 5.20
+    $rule_add->(set_robust_list => );
+    
     # Allow select, might need to have some kind of restriction on it?  probably fine
     $rule_add->(select => );