Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 18:35:49 -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 #!/bin/bash
read -r -d '' CODE <<'EOC' 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 EOC
echo -------- echo --------

3
lib/eval.pl
View file

@ -98,6 +98,9 @@ sub get_seccomp {
$rule_add->(readlink => ); $rule_add->(readlink => );
$rule_add->(getpid => ); $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 # Allow select, might need to have some kind of restriction on it? probably fine
$rule_add->(select => ); $rule_add->(select => );