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

Add support for multi-file evals

Browse source
This commit is contained in:
Ryan Voots 2017-05-05 02:21:18 -04:00
parent 449600f79f
commit bd894fb234
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/eval.pl
View file

@ -368,6 +368,9 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
chroot(".") or die $!; chroot(".") or die $!;
chdir("/eval") or die $!; chdir("/eval") or die $!;
# It's now safe for us to do this so that we can load modules and files provided by the user
push @INC, "/eval/lib";
if ($< == 0) { if ($< == 0) {
# Here's where we actually drop our root privilege # Here's where we actually drop our root privilege
$)="$nobody_uid $nobody_uid"; $)="$nobody_uid $nobody_uid";