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

mostly changes to which perl it runs with, hopefully this will make it easier to fix when perl 5.18 comes out

Browse source
This commit is contained in:
Ryan Voots 2012-06-10 11:43:00 -04:00
parent e6fd9d4ea0
commit 37c9c17649
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bin/evalserver
View file

@ -1,4 +1,4 @@
#!/home/ryan/perl5/perlbrew/perls/perl-5.14.1/bin/perl #!perl
#use local::lib; #use local::lib;
# Guess we're being activated inside bin/, so go up a directory. # Guess we're being activated inside bin/, so go up a directory.
@ -9,7 +9,7 @@ use lib "$FindBin::Bin/../lib";
use EvalServer; use EvalServer;
use POSIX qw/setsid/; use POSIX qw/setsid/;
$ENV{PATH}="/home/farnsworth/perl5/perlbrew/perls/perl-5.14.0/bin:/usr/bin/:/bin/"; #$ENV{PATH}="/home/farnsworth/perl5/perlbrew/perls/perl-5.14.0/bin:/usr/bin/:/bin/";
# Only daemonize if we're asked to. # Only daemonize if we're asked to.
if( $ARGV[0] eq '-d' ) { if( $ARGV[0] eq '-d' ) {

2
lib/EvalServer.pm
View file

@ -40,7 +40,7 @@ sub spawn_eval {
} }
warn "Spawning Eval: $args->{code}\n"; warn "Spawning Eval: $args->{code}\n";
my $wheel = POE::Wheel::Run->new( my $wheel = POE::Wheel::Run->new(
Program => [ '/home/ryan/perl5/perlbrew/perls/perl-5.14.1/bin/perl', $filename ], Program => [ $^X, $filename ],
ProgramArgs => [ ], ProgramArgs => [ ],
CloseOnCall => 1, #Make sure all of the filehandles are closed. CloseOnCall => 1, #Make sure all of the filehandles are closed.

2
lib/eval.pl
View file

@ -1,4 +1,4 @@
#!/home/ryan/perl5/perlbrew/perls/perl-5.14.1/bin/perl #!perl
#use lib '/home/ryan/perl5/lib/perl5/i686-linux'; #use lib '/home/ryan/perl5/lib/perl5/i686-linux';
#use lib '/home/ryan/perl5/lib/perl5'; #use lib '/home/ryan/perl5/lib/perl5';