From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 1 Jul 2003 11:18:27 +0000 (+0000)
Subject: Integrate from perlio:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38af81ff258ecdcd67c7b6fdf4b602a68c7fd75f;p=p5sagit%2Fp5-mst-13.2.git

Integrate from perlio:
[ 19909]
binmode() should affect IoOFP() as well as IoIFP() if it is
distinct (e.g. sockets).
p4raw-link: @19909 on //depot/perlio: 5a828df094714ebe5d444cf1aea96c870ca9e452

p4raw-id: //depot/perl@19910
p4raw-integrated: from //depot/perlio@19906 'merge in' pp_sys.c
	(@19868..)
---

diff --git a/pp_sys.c b/pp_sys.c
index 7ee8b9e..b240b62 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -742,6 +742,14 @@ PP(pp_binmode)
     PUTBACK;
     if (PerlIO_binmode(aTHX_ fp,IoTYPE(io),mode_from_discipline(discp),
                        (discp) ? SvPV_nolen(discp) : Nullch)) {
+	if (IoOFP(io) && IoOFP(io) != IoIFP(io)) {
+	     if (!PerlIO_binmode(aTHX_ IoOFP(io),IoTYPE(io),
+			mode_from_discipline(discp),
+                       (discp) ? SvPV_nolen(discp) : Nullch)) {
+		SPAGAIN;
+		RETPUSHUNDEF;
+	     }
+	}
 	SPAGAIN;
 	RETPUSHYES;
     }