From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 30 Apr 2000 17:50:19 +0000 (+0000)
Subject: extend "Unrecognized escape" warning to \8, \9, and \_ as well
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e84c16c57fe111372685c242980ee41cdbe1d3e;p=p5sagit%2Fp5-mst-13.2.git

extend "Unrecognized escape" warning to \8, \9, and \_ as well
(from Hugo van der Sanden)

p4raw-id: //depot/perl@6024
---

diff --git a/toke.c b/toke.c
index 737c9ae..860e3c1 100644
--- a/toke.c
+++ b/toke.c
@@ -1377,7 +1377,7 @@ S_scan_const(pTHX_ char *start)
 	    default:
 	        {
 		    dTHR;
-		    if (ckWARN(WARN_MISC) && isALPHA(*s))
+		    if (ckWARN(WARN_MISC) && isALNUM(*s))
 			Perl_warner(aTHX_ WARN_MISC, 
 			       "Unrecognized escape \\%c passed through",
 			       *s);