RESENT - [PATCH] utf8_heavy.pl
[p5sagit/p5-mst-13.2.git] / perliol.h
index 226de6a..2a681c0 100644 (file)
--- a/perliol.h
+++ b/perliol.h
@@ -58,6 +58,7 @@ struct _PerlIO_funcs {
 #define PERLIO_K_DUMMY         0x00000010
 #define PERLIO_K_UTF8          0x00008000
 #define PERLIO_K_DESTRUCT      0x00010000
+#define PERLIO_K_MULTIARG      0x00020000
 
 /*--------------------------------------------------------------------------------------*/
 struct _PerlIO {
@@ -110,7 +111,7 @@ extern PerlIO *PerlIO_allocate(pTHX);
 extern SV *PerlIO_arg_fetch(PerlIO_list_t *av, IV n);
 #define PerlIOArg PerlIO_arg_fetch(layers,n)
 
-#if O_BINARY != O_TEXT
+#ifdef PERLIO_USING_CRLF
 #define PERLIO_STDTEXT "t"
 #else
 #define PERLIO_STDTEXT ""