This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mode argument to do_binmode() should be file mode, not boolean
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 24 Apr 2000 03:22:03 +0000 (03:22 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 24 Apr 2000 03:22:03 +0000 (03:22 +0000)
p4raw-id: //depot/perl@5909

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) {