1
0
Fork 0
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:
Ryan Voots 2011-05-06 17:01:03 -04:00
commit bd54154dc0
4 changed files with 25 additions and 5 deletions

View file

@ -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
View file

@ -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

View file

@ -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;

View file

@ -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;