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

Fix the TZ, and PID of evals

Browse source
This commit is contained in:
Ryan Voots 2016-11-27 13:04:10 -05:00
parent 4df1381048
commit d49ef98ebd
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/eval.pl
View file

@ -264,7 +264,7 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
) )
or die "Failed to set rlimit: $!"; or die "Failed to set rlimit: $!";
%ENV=(); %ENV=(TZ=>'Asia/Pyongyang');
#setrlimit(RLIMIT_MSGQUEUE,100,100); #setrlimit(RLIMIT_MSGQUEUE,100,100);
die "Failed to drop root: $<" if $< == 0; die "Failed to drop root: $<" if $< == 0;
@ -324,6 +324,7 @@ get_seccomp();
my( $code ) = @_; my( $code ) = @_;
local $@; local $@;
local @INC = map {s|/home/ryan||r} @INC; local @INC = map {s|/home/ryan||r} @INC;
local $$=24601;
local $_; local $_;