rakudo: parrot openpipe with rurban/openpipe-env-gh1065

control.pm

sub QX($cmd) {
#if? parrot
    my $pipe := pir::new__Ps('FileHandle');
    my $env := pir::new__Ps('Env');
    $pipe.set_keyed('env', $env);
    $pipe.open(nqp::unbox_s($cmd), 'rp');
    fail "Unable to execute '$cmd'" unless $pipe;
 
    $pipe.encoding('utf8');
    my $result := $pipe.readall;
    $pipe.close();
    store_dynlex_safely('$!', $pipe.exit_status);
    $result
#?endif
#?if !parrot
    my Mu $pio := nqp::openpipe(nqp::unbox_s($cmd), nqp::cwd(), nqp::getenvhash(), '');
    fail "Unable to execute '$cmd'" unless $pio;
    my $result = nqp::p6box_s(nqp::readallfh($pio));
    nqp::closefh($pio);
    $result;
#?endif
}