Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 15:55:42 -04:00
Code Issues Releases Wiki Activity

Add nanosleep for Time::HiRes qw/sleep/

Browse source
This commit is contained in:
Ryan Voots 2016-10-15 06:18:00 -07:00
parent 109c713dab
commit 05fee1a0ea
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/eval.pl
View file

@ -92,7 +92,7 @@ sub get_seccomp {
# 4352 ioctl(4, TCGETS, 0x7ffd10963820) = -1 ENOTTY (Inappropriate ioctl for device) # 4352 ioctl(4, TCGETS, 0x7ffd10963820) = -1 ENOTTY (Inappropriate ioctl for device)
$rule_add->(ioctl => [1, '==', 0x5401]); # This happens on opened files for some reason? wtf $rule_add->(ioctl => [1, '==', 0x5401]); # This happens on opened files for some reason? wtf
my @blind_syscalls = qw/read exit exit_group brk lseek fstat fcntl stat rt_sigaction rt_sigprocmask geteuid getuid getcwd close getdents getgid getegid getgroups lstat/; my @blind_syscalls = qw/read exit exit_group brk lseek fstat fcntl stat rt_sigaction rt_sigprocmask geteuid getuid getcwd close getdents getgid getegid getgroups lstat nanosleep/;
for my $syscall (@blind_syscalls) { for my $syscall (@blind_syscalls) {
$rule_add->($syscall); $rule_add->($syscall);