-extern void PerlIO_define_layer (PerlIO_funcs *tab);
-extern SV * PerlIO_find_layer (const char *name, STRLEN len);
-extern PerlIO * PerlIO_push (PerlIO *f,PerlIO_funcs *tab,const char *mode);
-extern void PerlIO_pop (PerlIO *f);
+extern void PerlIO_define_layer(pTHX_ PerlIO_funcs *tab);
+extern PerlIO_funcs *PerlIO_find_layer(pTHX_ const char *name, STRLEN len,
+ int load);
+extern PerlIO *PerlIO_push(pTHX_ PerlIO *f, PerlIO_funcs *tab,
+ const char *mode, SV *arg);
+extern void PerlIO_pop(pTHX_ PerlIO *f);
+extern AV* PerlIO_get_layers(pTHX_ PerlIO *f);
+extern void PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param);