1 files changed, 3 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index da3c7fdd5d..f35a0421f3 100644
--- a/toke.c
+++ b/toke.c
@@ -3808,8 +3808,10 @@ Perl_yylex(pTHX)
 		    IoTYPE(GvIOp(gv)) = '<';
 #if defined(WIN32) && !defined(PERL_TEXTMODE_SCRIPTS)
 		/* if the script was opened in binmode, we need to revert
-		 * it to text mode for compatibility.
+		 * it to text mode for compatibility; but only iff it has CRs
 		 * XXX this is a questionable hack at best. */
+		if (PL_bufend-PL_bufptr > 2
+		    && PL_bufend[-1] == '\n' && PL_bufend[-2] == '\r')
 		{
 		    Off_t loc = 0;
 		    if (IoTYPE(GvIOp(gv)) == '<') {