make connector time out correctly

[scpubgit/Tak.git] / bin / tak-repl

diff --git a/bin/tak-repl b/bin/tak-repl
index 2148f2d..2383219 100644 (file)
--- a/bin/tak-repl
+++ b/bin/tak-repl
@@ -2,15 +2,10 @@
 
 use Tak::Client;
 use Tak::Router;
-use Tak::MetaService;
 use Tak::REPL;
 use strictures 1;
 
-my $router = Tak::Router->new;
-
-$router->register(meta => Tak::MetaService->new(router => $router));
-
-my $client = Tak::Client->new(service => $router);
+my $client = Tak::Client->new(service => Tak::Router->new);
 
 $client->curry('meta')->do(register => eval => 'Tak::EvalService');