mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 18:45:42 -04:00
Add two more syscalls for newer perls
This commit is contained in:
parent
0900baaa31
commit
c63356fa7b
2 changed files with 5 additions and 2 deletions
|
@ -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 --------
|
||||
|
|
|
@ -98,6 +98,9 @@ sub get_seccomp {
|
|||
$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 => );
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue