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 => );