disable CR croaking (via #define, default off) in lieu of more

complete fix

p4raw-id: //depot/perl@1417

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index ad8dfbe9d0..29a27466de 100644
--- a/toke.c
+++ b/toke.c
@@ -1986,7 +1986,7 @@ yylex(void)
 	}
 	goto retry;
     case '\r':
-#ifndef WIN32CHEAT
+#ifdef PERL_STRICT_CR
 	warn("Illegal character \\%03o (carriage return)", '\r');
 	croak(
       "(Maybe you didn't strip carriage returns after a network transfer?)\n");