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

complete fix

p4raw-id: //depot/perl@1417

diff --git a/toke.c b/toke.c
index ad8dfbe..29a2746 100644 (file)
--- 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");