X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.h;h=e510929d5675521d53a5b0cfea3dce5da273ce3d;hb=84e09d5e9b0e8f355853f7c768e322224fb09c76;hp=ebacfeb611ab9aab63afcb6336b4cce7651b36c4;hpb=a15cef0c498d0b84ecf118ac9b0a6f383dfcf79d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlio.h b/perlio.h
index ebacfeb..e510929 100644
--- a/perlio.h
+++ b/perlio.h
@@ -30,9 +30,11 @@
 
 #if defined(PERL_IMPLICIT_SYS)
 #ifndef USE_PERLIO
+#ifndef NETWARE
 # define USE_PERLIO
 #endif
 #endif
+#endif
 
 #ifndef USE_PERLIO
 # define USE_STDIO
@@ -60,6 +62,11 @@
 #define fseek fseeko
 #endif
 
+/* BS2000 includes are sometimes a bit non standard :-( */
+#if defined(POSIX_BC) && defined(O_BINARY) && !defined(O_TEXT)
+#undef O_BINARY
+#endif
+
 #ifdef PERLIO_IS_STDIO
 /* #define PerlIO_xxxx() as equivalent stdio function */
 #include "perlsdio.h"
@@ -81,7 +88,7 @@ typedef PerlIOl *PerlIO;
 #define PERLIO_LAYERS 1
 
 extern void	PerlIO_define_layer	(pTHX_ PerlIO_funcs *tab);
-extern SV *	PerlIO_find_layer	(pTHX_ const char *name, STRLEN len, int load);
+extern PerlIO_funcs *PerlIO_find_layer	(pTHX_ const char *name, STRLEN len, int load);
 extern PerlIO *	PerlIO_push		(pTHX_ PerlIO *f,PerlIO_funcs *tab,const char *mode,SV *arg);
 extern void	PerlIO_pop		(pTHX_ PerlIO *f);