X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=fakesdio.h;h=479123242f6285ab90656136507263dbc2297fc4;hb=918426be7f3660c63cebe082bf8eac82a38bf756;hp=e07fd606178ab5e6556b32ba312f24ea36db13e6;hpb=cf677677a1a817dcdfc679372e08232bc54af9cb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/fakesdio.h b/fakesdio.h
index e07fd60..4791232 100644
--- a/fakesdio.h
+++ b/fakesdio.h
@@ -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_