Add Tim Jenness' XS::Typemap for exercizing the standard typemap.

[perl5.git] / perlio.h

diff --git a/perlio.h b/perlio.h
index 49423aa..cd722a1 100644 (file)
--- a/perlio.h
+++ b/perlio.h
@@ -82,7 +82,7 @@ typedef PerlIOl *PerlIO;
 
 extern void    PerlIO_define_layer     (pTHX_ PerlIO_funcs *tab);
 extern SV *    PerlIO_find_layer       (pTHX_ const char *name, STRLEN len);
-extern PerlIO *        PerlIO_push             (pTHX_ PerlIO *f,PerlIO_funcs *tab,const char *mode,const char *arg,STRLEN len);
+extern PerlIO *        PerlIO_push             (pTHX_ PerlIO *f,PerlIO_funcs *tab,const char *mode,SV *arg);
 extern void    PerlIO_pop              (pTHX_ PerlIO *f);
 
 #endif /* PerlIO */
@@ -327,6 +327,8 @@ extern int  PerlIO_apply_layers     (pTHX_ PerlIO *f, const char *mode, const char *n
 extern int     PerlIO_binmode          (pTHX_ PerlIO *f, int iotype, int omode, const char *names);
 #endif
 
+extern void PerlIO_destruct(pTHX);
+
 #ifndef PERLIO_IS_STDIO
 
 extern void PerlIO_cleanup(void);