$client in tak repl

[scpubgit/Tak.git] / lib / Tak / Role / ScriptActions.pm

diff --git a/lib/Tak/Role/ScriptActions.pm b/lib/Tak/Role/ScriptActions.pm
index 9551b62..2d4a23a 100644 (file)
--- a/lib/Tak/Role/ScriptActions.pm
+++ b/lib/Tak/Role/ScriptActions.pm
@@ -59,7 +59,10 @@ sub each_repl (I=s@;m=s@;M=s@) {
   my ($self, $remote, $options) = @_;
   require Tak::REPL;
   require B;
-  $remote->ensure(eval_service => 'Tak::EvalService');
+  $remote->ensure(
+    eval_service => 'Tak::EvalService',
+    expose => { service_client => [ '' ] },
+  );
   foreach my $lib (@{$options->{'I'}||[]}) {
     $remote->do(eval_service => eval => "lib->import(${\B::perlstring($lib)})");
   }