use Object::Remote::ModuleSender;
use Object::Remote::Handle;
+use String::ShellQuote;
use Moo;
with 'Object::Remote::Role::Connector::PerlInterpreter';
has ssh_command => (is => 'ro', default => sub { 'ssh' });
-#TODO properly integrate if this works
-BEGIN { $ENV{TERM} = 'dumb'; }
-
sub _build_ssh_perl_command {
my ($self) = @_;
+ my $perl_command = $self->perl_command;
+
return [
do { my $c = $self->ssh_command; ref($c) ? @$c : $c },
@{$self->ssh_options}, $self->ssh_to,
- @{$self->perl_command}
+ shell_quote(@$perl_command),
];
}