[perl #125655] Garbage collected running Proc::Async objects don't seem to clean up their handles, causing libuv to abort()

[via RT]

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


See the attached script.

This is similar to https://rt.perl.org/Ticket/Display.html?id=125654
use v6;
use nqp;

for ^1000 {
    .say;

    my $proc = Proc::Async.new('sleep', '20', :w);
    $proc.stdout.tap(-> $ {});
    $proc.start;

    nqp::force_gc();
}

say 'done';