Down with C++ reserved names

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

diff --git a/perliol.h b/perliol.h
index fa399e6..80e7c7d 100644 (file)
--- a/perliol.h
+++ b/perliol.h
@@ -15,7 +15,7 @@ struct PerlIO_list_s {
 
 struct _PerlIO_funcs {
     Size_t fsize;
-    char *name;
+    const char *name;
     Size_t size;
     U32 kind;
     IV (*Pushed) (pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
@@ -88,6 +88,7 @@ struct _PerlIO {
 #define PERLIO_F_OPEN          0x00200000
 #define PERLIO_F_FASTGETS      0x00400000
 #define PERLIO_F_TTY           0x00800000
+#define PERLIO_F_NOTREG         0x01000000   
 
 #define PerlIOBase(f)      (*(f))
 #define PerlIOSelf(f,type) ((type *)PerlIOBase(f))