From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 24 Apr 2000 03:22:03 +0000 (+0000)
Subject: mode argument to do_binmode() should be file mode, not boolean
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=100be497fd1deb257705c1648aa68435e70846c6;p=p5sagit%2Fp5-mst-13.2.git

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