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:
parent
449600f79f
commit
bd894fb234
1 changed files with 3 additions and 0 deletions
|
@ -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";
|
||||
|
|
Loading…
Add table
Reference in a new issue