status = Perl_do_open9(aTHX_ handle, "<:Apache2", 9, FALSE, O_RDONLY, 0, Nullfp, sv, 1);
status = do_open9(handle, "<:Apache2", 9, FALSE, O_RDONLY, 0, Nullfp, sv, 1);
MP_INLINE GV *modperl_io_perlio_override_stdin(pTHX_ request_rec *r){    dHANDLE("STDIN");    int status;    GV *handle_save = (GV*)Nullsv;    SV *sv = sv_newmortal();    MP_TRACE_o(MP_FUNC, "start");    /* if STDIN is open, dup it, to be restored at the end of response */    if (handle && SvTYPE(handle) == SVt_PVGV &&        IoTYPE(GvIO(handle)) != IoTYPE_CLOSED) {        handle_save = gv_fetchpv(Perl_form(aTHX_                                           "Apache2::RequestIO::_GEN_%ld",                                           (long)PL_gensym++),                                 TRUE, SVt_PVIO);        /* open my $oldout, "<&STDIN" or die "Can't dup STDIN: $!"; */        status = Perl_do_open(aTHX_ handle_save, "<&STDIN", 7, FALSE,                              O_RDONLY, 0, Nullfp);        if (status == 0) {            Perl_croak(aTHX_ "Failed to dup STDIN: %" SVf, get_sv("!", TRUE));        }        /* similar to PerlIO::scalar, the PerlIO::Apache layer doesn't         * have file descriptors, so STDIN must be closed before it can         * be reopened */        Perl_do_close(aTHX_ handle, TRUE);    }    sv_setref_pv(sv, "Apache2::RequestRec", (void*)r);    status = Perl_do_open9(aTHX_ handle, "<:Apache2", 9, FALSE, O_RDONLY,                           0, Nullfp, sv, 1);    if (status == 0) {        Perl_croak(aTHX_ "Failed to open STDIN: %" SVf, get_sv("!", TRUE));    }    MP_TRACE_o(MP_FUNC, "end\n");    return handle_save;}