Down with C++ reserved names

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

diff --git a/perliol.h b/perliol.h
index a0d4429..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);
@@ -33,7 +33,7 @@ struct _PerlIO_funcs {
      SSize_t(*Read) (pTHX_ PerlIO *f, void *vbuf, Size_t count);
      SSize_t(*Unread) (pTHX_ PerlIO *f, const void *vbuf, Size_t count);
      SSize_t(*Write) (pTHX_ PerlIO *f, const void *vbuf, Size_t count);
-     Off_t (*Seek) (pTHX_ PerlIO *f, Off_t offset, int whence);
+    IV (*Seek) (pTHX_ PerlIO *f, Off_t offset, int whence);
      Off_t(*Tell) (pTHX_ PerlIO *f);
     IV (*Close) (pTHX_ PerlIO *f);
     /* Stdio-like buffered IO functions */
@@ -176,7 +176,7 @@ extern PerlIO *PerlIOBuf_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, in
 extern SSize_t PerlIOBuf_read(pTHX_ PerlIO *f, void *vbuf, Size_t count);
 extern SSize_t PerlIOBuf_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
 extern SSize_t PerlIOBuf_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
-extern Off_t PerlIOBuf_seek(pTHX_ PerlIO *f, Off_t offset, int whence);
+extern IV PerlIOBuf_seek(pTHX_ PerlIO *f, Off_t offset, int whence);
 extern Off_t PerlIOBuf_tell(pTHX_ PerlIO *f);
 extern IV PerlIOBuf_close(pTHX_ PerlIO *f);
 extern IV PerlIOBuf_flush(pTHX_ PerlIO *f);