X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTak%2FConnectorService.pm;h=fa3981573c9bc58a801a74e1efc018a2750e6928;hb=986f5290d9338118f95f2293f705368fb142d270;hp=8a244a2a43041f76adb19e76ee356bd0a76cde5a;hpb=77bf1d9b5b6832894676ab549ee5664cb7200d33;p=scpubgit%2FTak.git diff --git a/lib/Tak/ConnectorService.pm b/lib/Tak/ConnectorService.pm index 8a244a2..fa39815 100644 --- 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