mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-09 12:35:42 -04:00
Merge branch 'master' of github.com:simcop2387/perlbuut
This commit is contained in:
commit
bd54154dc0
4 changed files with 25 additions and 5 deletions
|
@ -1,5 +1,7 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use lib '/home/farnsworth/perl5/lib/perl5';
|
||||
use local::lib;
|
||||
# Guess we're being activated inside bin/, so go up a directory.
|
||||
BEGIN { if( not -e 'lib' and not -e 'etc' and -e 'bb3' ) { chdir ".."; } }
|
||||
|
||||
|
@ -7,6 +9,8 @@ use lib 'lib';
|
|||
use EvalServer;
|
||||
use POSIX qw/setsid/;
|
||||
|
||||
$ENV{PATH}="/usr/bin/:/bin/";
|
||||
|
||||
# Only daemonize if we're asked to.
|
||||
if( $ARGV[0] eq '-d' ) {
|
||||
# Crude daemonization
|
||||
|
|
5
deps/build_deps.sh
vendored
5
deps/build_deps.sh
vendored
|
@ -16,9 +16,8 @@ cd ../..
|
|||
cd JavaScript-SpiderMonkey-0.19-patched
|
||||
perl Makefile.PL
|
||||
make
|
||||
make test
|
||||
sudo make install
|
||||
make test && make install
|
||||
cd ..
|
||||
|
||||
|
||||
sudo cpan Log::Log4perl
|
||||
#sudo cpan Log::Log4perl
|
||||
|
|
|
@ -1,4 +1,7 @@
|
|||
package EvalServer;
|
||||
|
||||
use lib '/home/farnsworth/perl5/lib/perl5/';
|
||||
$ENV{PERL5LIB}="/home/farnsworth/perl5/lib/perl5/x86_64-linux-gnu-thread-multi:/home/farnsworth/perl5/lib/perl5";
|
||||
use POE;
|
||||
use POE::Wheel::SocketFactory;
|
||||
use POE::Wheel::ReadWrite;
|
||||
|
|
18
lib/eval.pl
18
lib/eval.pl
|
@ -1,6 +1,7 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use lib '/home/ryan/perl5/lib/perl5';
|
||||
use lib '/home/farnsworth/perl5/lib/perl5/x86_64-linux-gnu-thread-multi';
|
||||
use lib '/home/farnsworth/perl5/lib/perl5';
|
||||
|
||||
use strict;
|
||||
use Data::Dumper;
|
||||
|
@ -9,6 +10,18 @@ use BSD::Resource;
|
|||
use File::Glob;
|
||||
use POSIX;
|
||||
|
||||
use List::Util;
|
||||
use List::MoreUtils;
|
||||
use List::UtilsBy;
|
||||
use Data::Munge;
|
||||
use Scalar::MoreUtils;
|
||||
|
||||
require Moose;
|
||||
require MooseX::Declare;
|
||||
eval "use MooseX::Declare; class Foo { has dongs => ( is => ro, isa => 'Int' ); };";
|
||||
|
||||
no warnings;
|
||||
|
||||
# This sub is defined here so that it is defined before the 'use charnames'
|
||||
# command. This causes extremely strange interactions that result in the
|
||||
# deparse output being much longer than it should be.
|
||||
|
@ -129,7 +142,7 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
|
|||
|
||||
my $kilo = 1024;
|
||||
my $meg = $kilo * $kilo;
|
||||
my $limit = 50 * $meg;
|
||||
my $limit = 150 * $meg;
|
||||
|
||||
(
|
||||
setrlimit(RLIMIT_DATA, $limit, $limit )
|
||||
|
@ -156,6 +169,7 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
|
|||
)
|
||||
or die "Failed to set rlimit: $!";
|
||||
|
||||
%ENV=();
|
||||
#setrlimit(RLIMIT_MSGQUEUE,100,100);
|
||||
|
||||
die "Failed to drop root: $<" if $< == 0;
|
||||
|
|
Loading…
Add table
Reference in a new issue