Help for this page

Select Code to Download

Select or download this

PerlIO *
PerlIO_push(pTHX_ PerlIO *f, PERLIO_FUNCS_DECL(*tab), const char *mode
+, SV *arg)
...
        if (tab->size < sizeof(PerlIOl)) {
            goto mismatch;
        }