make connector time out correctly

[scpubgit/Tak.git] / lib / Tak / ConnectorService.pm

diff --git a/lib/Tak/ConnectorService.pm b/lib/Tak/ConnectorService.pm
index 8a244a2..fa39815 100644 (file)
--- a/lib/Tak/ConnectorService.pm
+++ b/lib/Tak/ConnectorService.pm
@@ -15,7 +15,7 @@ sub handle_create {
   my ($self) = @_;
   my $kid_pid = IPC::Open2::open2(my $kid_out, my $kid_in, $^X, '-')
     or die "Couldn't open2 child: $!";
-  io($kid_in)->print(io('maint/mk-fat |')->all, "__END__\n");
+  $kid_in->print(io('maint/mk-fat |')->all, "__END__\n");
   my $connection = Tak::ConnectionService->new(
     read_fh => $kid_out, write_fh => $kid_in,
     listening_service => Tak::Router->new