# 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';