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

1 files changed, 8 insertions, 0 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 7ee8b9e049..b240b62b20 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;
     }