GNU 'merge' Simon's copy of perliol.pod with version

[p5sagit/p5-mst-13.2.git] / perlio.h

diff --git a/perlio.h b/perlio.h
index b2e5179..b144b24 100644 (file)
--- a/perlio.h
+++ b/perlio.h
@@ -106,6 +106,10 @@ extern void        PerlIO_pop              (PerlIO *f);
 #ifndef PERLIO_NOT_STDIO
 #define PERLIO_NOT_STDIO 1
 #endif
+#else
+#ifndef PERLIO_NOT_STDIO
+#define PERLIO_NOT_STDIO 0
+#endif
 #endif
 
 #ifdef PERLIO_NOT_STDIO
@@ -307,7 +311,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 +324,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
 
-extern void PerlIO_cleanup();
+#ifndef PERLIO_IS_STDIO
+
+extern void PerlIO_cleanup(void);
 
 extern void PerlIO_debug(const char *fmt,...);
 
+#endif
+
 END_EXTERN_C
 
 #endif /* _PERLIO_H */