1 files changed, 2 insertions, 1 deletions
diff --git a/perlio.c b/perlio.c
index d05bf3c939..eb32a045e9 100644
--- a/perlio.c
+++ b/perlio.c
@@ -945,15 +945,16 @@ PerlIO_binmode(pTHX_ PerlIO *f, int iotype, int mode, const char *names)
     PerlIO_debug("PerlIO_binmode f=%p %s %c %x %s\n",
 		 f, PerlIOBase(f)->tab->name, iotype, mode,
 		 (names) ? names : "(Null)");
+    PerlIO_flush(f);
     if (!names && (O_TEXT != O_BINARY && (mode & O_BINARY))) {
 	PerlIO *top = f;
 	while (*top) {
 	    if (PerlIOBase(top)->tab == &PerlIO_crlf) {
-		PerlIO_flush(top);
 		PerlIOBase(top)->flags &= ~PERLIO_F_CRLF;
 		break;
 	    }
 	    top = PerlIONext(top);
+	    PerlIO_flush(top);
 	}
     }
     return PerlIO_apply_layers(aTHX_ f, NULL, names) == 0 ? TRUE : FALSE;