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

[scpubgit/Object-Remote.git] / lib / Object / Remote / Role / Connector / PerlInterpreter.pm

diff --git a/lib/Object/Remote/Role/Connector/PerlInterpreter.pm b/lib/Object/Remote/Role/Connector/PerlInterpreter.pm
index 670ad73..2f32541 100644 (file)
--- 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 . ' -';