# confuse things by sending before the dup.
my $up = <$kid_out>;
die [ failure => "Garbled response from child: $up" ]
- unless $up eq "Ssyshere\n";
+ unless $up eq "Shere\n";
}
my $connection = Tak::ConnectionService->new(
read_fh => $kid_out, write_fh => $kid_in,