Perl_do_close(aTHX_ handle, TRUE);
MP_INLINE GV *modperl_io_perlio_override_stdin(pTHX_ request_rec *r){    dHANDLE("STDIN");    int status;    GV *handle_save = gv_fetchpv(Perl_form(aTHX_ "Apache::RequestIO::_GEN_%ld",                                           (long)PL_gensym++),                                 TRUE, SVt_PVIO);    SV *sv = sv_newmortal();    sv_setref_pv(sv, "Apache::RequestRec", (void*)r);    MP_TRACE_o(MP_FUNC, "start");    /* 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: %_", 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);     status = Perl_do_open9(aTHX_ handle, "<:Apache", 8, FALSE, O_RDONLY,                           0, Nullfp, sv, 1);    if (status == 0) {        Perl_croak(aTHX_ "Failed to open STDIN: %_", get_sv("!", TRUE));    }    MP_TRACE_o(MP_FUNC, "end\n");    return handle_save;}