[perl #123563] on FreeBSD closing a pipe too early doesn't return the correct exit code

[Christian Bartolomaeus via RT]

This works now.

$ perl6-m -e 'my $handle = pipe("/usr/bin/false", :r); say $handle.close'
Proc::Status.new(exit => 1, pid => Any, signal => 0)

There are passing tests in S32-io/pipe.t.

I'm closing this ticket as 'resolved'.