# New Ticket Created by Tony ODell
# Please include the string: [perl #125230]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=125230 >
Encountered the following problem implementing Event::Emitter between
processes. This code will run forever as .read(1) forever reads nothing from
$*IN
#!/usr/bin/env perl6
my $p = Proc::Async.new('perl6', '-e', '
await start {
my $d = $*IN.read(1);
while $d.elems == 0 {
$d = $*IN.read(1);
}
$d.say;
};', :w);
my $r = $p.start;
$p.write("0".encode);
await $r;
----------------------------------------------------------
ACTUAL:
Sub process 'reads' an empty Buf forever
EXPECTED:
Sub process eventually 'reads' a Buf containing 1 byte
tony-o
