[perl #125652] Proc::Async.stdout doesn't work with CurrentThreadScheduler

[via RT]

# New Ticket Created by  Rob Hoelz 
# Please include the string:  [perl #125652]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=125652 >


See the attached script.
use v6;

my $*SCHEDULER = CurrentThreadScheduler;
my $proc = Proc::Async.new('cat', :w);
$proc.stdout.tap(-> $s {
    say "> $s";
});
my $p = $proc.start;
$proc.write: 'hello'.encode;
$proc.close-stdin;
await $p;
say 'done';