OBJECT_REMOTE_PERL_BIN environment value was ignored, fixed and put a test on it

[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 c430fa6..41373a8 100644 (file)
--- a/lib/Object/Remote/Role/Connector/PerlInterpreter.pm
+++ b/lib/Object/Remote/Role/Connector/PerlInterpreter.pm
@@ -39,7 +39,7 @@ sub _build_perl_command {
   if (exists $ENV{OBJECT_REMOTE_PERL_BIN}) {
     $perl_bin = $ENV{OBJECT_REMOTE_PERL_BIN};
   }
-  return [qw(perl -)];
+  return [$perl_bin, '-'];
 }
 
 sub _build_forward_env {