- binmode $wtr, ':utf8' if $utf8;
- my $block = 0;
- my $rcv = mrecv local %SIG, cb => sub {
- if ($block) {
- $block = 0;
- } else {
- select $wtr; $| = 1;
- print $wtr $_[0], ':', $_[1], "\n";
- select $wtr; $| = 1;
- }
+ my $rcv = mrecv %SIG, cb => sub {
+ binmode $wtr, ':utf8' if Encode::is_utf8 $_[1];
+ select $wtr; $| = 1;
+ print $wtr $_[0], ':', $_[1], "\n";
+ select $wtr; $| = 1;