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

Fix profile selection

Browse source
This commit is contained in:
Ryan Voots 2017-05-06 05:02:26 -04:00
parent e7fd3eeda3
commit f1b4a20f5c
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

@ -287,7 +287,7 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
# close STDIN; # close STDIN;
# Setup SECCOMP for us # Setup SECCOMP for us
my ($profile) = ($type =~ /^(\w+)/g); my ($profile) = ($type =~ /^([a-z]+)/ig);
my $esc = EvalServer::Seccomp->new(profiles => ["lang_$profile"]); my $esc = EvalServer::Seccomp->new(profiles => ["lang_$profile"]);
$esc->engage(); $esc->engage();