mode argument to do_binmode() should be file mode, not boolean

p4raw-id: //depot/perl@5909

diff --git a/pp_sys.c b/pp_sys.c
index 0ec539d..00de34a 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3078,7 +3078,7 @@ PP(pp_fttext)
            (void)PerlIO_close(fp);
            RETPUSHUNDEF;
        }
-       do_binmode(fp, '<', TRUE);
+       do_binmode(fp, '<', O_BINARY);
        len = PerlIO_read(fp, tbuf, sizeof(tbuf));
        (void)PerlIO_close(fp);
        if (len <= 0) {