Select Code to Download

IV
PerlIOVia_close(pTHX_ PerlIO * f)
...
    PerlIOBase(f)->flags &= ~(PERLIO_F_RDBUF | PERLIO_F_WRBUF);
    return code;
}