From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 11 Jul 1998 02:14:16 +0000 (+0000)
Subject: disable CR croaking (via #define, default off) in lieu of more
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2db4f57cd98e06c3602c6cbf326541f4a1500ae9;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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");