1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 18:55:44 -04:00

Add support for multi-file evals

This commit is contained in:
Ryan Voots 2017-05-05 02:21:18 -04:00
parent 449600f79f
commit bd894fb234

View file

@ -368,6 +368,9 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
chroot(".") 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) {
# Here's where we actually drop our root privilege
$)="$nobody_uid $nobody_uid";