[perl #130107] [CONC] unkown system error 0 via Proc::Async

[via RT]

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


use v6;

CATCH { default { say .^name; say .Str } }

my $find = Proc::Async.new(|<find / -print>);

react {
     whenever $find.stdout(:bin) -> $line {
         QUIT { when X::AdHoc { say .backtrace.WHAT; say .^name,
             .Str; } }
         print $line.decode('utf8-c8');
     }

     whenever $find.stderr(:bin) -> $line {
         QUIT { say .^name }
# put "FAIL: $line"
     }

     $find.start;
}

# OUTPUT (after some time):
# X::AdHoc Unknown system error 0