Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 10:35:41 -04:00
Code Issues Releases Wiki Activity

Add two more syscalls for newer perls

Browse source
This commit is contained in:
Ryan Voots 2017-04-01 15:15:50 -04:00
parent 0900baaa31
commit c63356fa7b
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bin/testeval.sh
View file

@ -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 --------

5
lib/eval.pl
View file

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