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

diff --git a/perlio.h b/perlio.h
index 4e508dd..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"