#if defined(PERL_IMPLICIT_SYS)
#ifndef USE_PERLIO
+#ifndef NETWARE
# define USE_PERLIO
#endif
#endif
+#endif
#ifndef USE_PERLIO
# define USE_STDIO
#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"
#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);