X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.h;h=0c6b26ab1dd75883d4f214a93067bdfb4dd42c86;hb=a52fe3ac22032460c16bdf76478b04c7f356c27e;hp=7d4cdcd2dc4acc08b0acccaee15b56a9864e1461;hpb=766a733e849204725c27391cf2992d649af4aba6;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlio.h b/perlio.h
index 7d4cdcd..0c6b26a 100644
--- a/perlio.h
+++ b/perlio.h
@@ -82,7 +82,7 @@ typedef PerlIOl *PerlIO;
 
 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 PerlIO *	PerlIO_push		(PerlIO *f,PerlIO_funcs *tab,const char *mode,const char *arg,STRLEN len);
 extern void	PerlIO_pop		(PerlIO *f);
 
 #endif /* PerlIO */
@@ -307,7 +307,7 @@ extern int	PerlIO_setpos		(PerlIO *,SV *);
 #ifndef PerlIO_fdupopen
 extern PerlIO *	PerlIO_fdupopen		(pTHX_ PerlIO *);
 #endif
-#ifndef PerlIO_modestr
+#if !defined(PerlIO_modestr) && !defined(PERLIO_IS_STDIO)
 extern char *PerlIO_modestr		(PerlIO *,char *buf);
 #endif
 #ifndef PerlIO_isutf8
@@ -320,10 +320,14 @@ 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
 
+#ifndef PERLIO_IS_STDIO
+
 extern void PerlIO_cleanup();
 
 extern void PerlIO_debug(const char *fmt,...);
 
+#endif
+
 END_EXTERN_C
 
 #endif /* _PERLIO_H */