From: Tyler Riddle <t.riddle@shadowcat.co.uk>
Date: Fri, 9 Nov 2012 01:04:12 +0000 (-0800)
Subject: change from $ENV{OBJECT_REMOTE_PERL_PATH} to $ENV{OBJECT_REMOTE_PERL_BIN}
X-Git-Tag: v0.003001_01~78
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29fb87a40b2ebc799be9bee9f400b07c95350fe9;hp=663fb34fcf6ce556f9d5ff365875ff86675a6105;p=scpubgit%2FObject-Remote.git

change from $ENV{OBJECT_REMOTE_PERL_PATH} to $ENV{OBJECT_REMOTE_PERL_BIN}
---

diff --git a/lib/Object/Remote/Role/Connector/PerlInterpreter.pm b/lib/Object/Remote/Role/Connector/PerlInterpreter.pm
index 670ad73..2f32541 100644
--- a/lib/Object/Remote/Role/Connector/PerlInterpreter.pm
+++ b/lib/Object/Remote/Role/Connector/PerlInterpreter.pm
@@ -45,9 +45,9 @@ sub _build_perl_command {
         $shell_code .= "nice -n $nice ";
     }
 
-    if (defined($ENV{OBJECT_REMOTE_PERL_PATH})) {
-        log_debug { "Using OBJECT_REMOTE_PERL_PATH environment variable as perl path" };
-        $perl_path = $ENV{OBJECT_REMOTE_PERL_PATH};
+    if (defined($ENV{OBJECT_REMOTE_PERL_BIN})) {
+        log_debug { "Using OBJECT_REMOTE_PERL_BIN environment variable as perl path" };
+        $perl_path = $ENV{OBJECT_REMOTE_PERL_BIN};
     }
 
     $shell_code .= $perl_path . ' -';