From 37c9c1764996206b14b18bf83048635facf9a4a9 Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Sun, 10 Jun 2012 11:43:00 -0400
Subject: [PATCH] mostly changes to which perl it runs with, hopefully this
 will make it easier to fix when perl 5.18 comes out

---
 bin/evalserver    | 4 ++--
 lib/EvalServer.pm | 2 +-
 lib/eval.pl       | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/bin/evalserver b/bin/evalserver
index 5fc6409..f1f529a 100755
--- a/bin/evalserver
+++ b/bin/evalserver
@@ -1,4 +1,4 @@
-#!/home/ryan/perl5/perlbrew/perls/perl-5.14.1/bin/perl
+#!perl
 
 #use local::lib;
 # Guess we're being activated inside bin/, so go up a directory.
@@ -9,7 +9,7 @@ use lib "$FindBin::Bin/../lib";
 use EvalServer;
 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.
 if( $ARGV[0] eq '-d' ) {
diff --git a/lib/EvalServer.pm b/lib/EvalServer.pm
index c4a6c98..bd60c55 100644
--- a/lib/EvalServer.pm
+++ b/lib/EvalServer.pm
@@ -40,7 +40,7 @@ sub spawn_eval {
 	}
 warn "Spawning Eval: $args->{code}\n";
 	my $wheel = POE::Wheel::Run->new(
-		Program => [ '/home/ryan/perl5/perlbrew/perls/perl-5.14.1/bin/perl', $filename ],
+		Program => [ $^X, $filename ],
 		ProgramArgs => [ ],
 
 		CloseOnCall => 1, #Make sure all of the filehandles are closed.
diff --git a/lib/eval.pl b/lib/eval.pl
index fca1cf3..85120d0 100755
--- a/lib/eval.pl
+++ b/lib/eval.pl
@@ -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';