This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate mainline
[perl5.git] / fakesdio.h
index e07fd60..4791232 100644 (file)
@@ -15,6 +15,7 @@
 #undef fgetpos
 #undef fgets
 #undef fileno
+#undef flockfile
 #undef fopen
 #undef fprintf
 #undef fputc
@@ -25,6 +26,8 @@
 #undef fseek
 #undef fsetpos
 #undef ftell
+#undef ftrylockfile
+#undef funlockfile
 #undef fwrite
 #undef getc
 #undef getc_unlocked
@@ -68,9 +71,7 @@
 #define fread(b,s,c,f)         _CANNOT fread
 #define fwrite(b,s,c,f)                _CANNOT fwrite
 #endif
-#define fgetpos(f,p)           PerlIO_getpos(f,p)
 #define fseek(f,o,w)           PerlIO_seek(f,o,w)
-#define fsetpos(f,p)           PerlIO_setpos(f,p)
 #define ftell(f)               PerlIO_tell(f)
 #define rewind(f)              PerlIO_rewind(f)
 #define clearerr(f)            PerlIO_clearerr(f)
@@ -81,6 +82,9 @@
 #define popen(c,m)             my_popen(c,m)
 #define pclose(f)              my_pclose(f)
 
+#define fsetpos(f,p)           _CANNOT _fsetpos_
+#define fgetpos(f,p)           _CANNOT _fgetpos_
+
 #define __filbuf(f)            _CANNOT __filbuf_
 #define _filbuf(f)             _CANNOT _filbuf_
 #define __flsbuf(c,f)          _CANNOT __flsbuf_