Neither is 0xff illegal UTF-EBCDIC since it's the last C1.

[p5sagit/p5-mst-13.2.git] / perlio.c

diff --git a/perlio.c b/perlio.c
index 8b4ca81..62f0d37 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -2867,7 +2867,7 @@ PerlIOBuf_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers,
        if (f) {
            PerlIO_push(aTHX_ f, self, mode, PerlIOArg);
            fd = PerlIO_fileno(f);
-#if O_BINARY != O_TEXT
+#if (O_BINARY != O_TEXT) && !defined(__BEOS__)
            /*
             * do something about failing setmode()? --jhi
             */