From: Dr.Ruud <rvtol+news@isolution.nl>
Date: Wed, 21 Jun 2006 01:58:19 +0000 (+0200)
Subject: <toke.c> isALNUM(*s) && *s != '_'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86f970540c92c6b7202ca6a4f9d388d9e23a2f27;p=p5sagit%2Fp5-mst-13.2.git

<toke.c> isALNUM(*s) && *s != '_'
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Message-ID: <20060621000237.24398.qmail@lists.develooper.com>

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

diff --git a/toke.c b/toke.c
index ebb3550..8dec0a7 100644
--- a/toke.c
+++ b/toke.c
@@ -1976,8 +1976,7 @@ S_scan_const(pTHX_ char *start)
 		/* FALL THROUGH */
 	    default:
 	        {
-		    if (isALNUM(*s) &&
-			*s != '_' &&
+		    if ((isALPHA(*s) || isDIGIT(*s)) &&
 			ckWARN(WARN_MISC))
 			Perl_warner(aTHX_ packWARN(WARN_MISC),
 			       "Unrecognized escape \\%c passed through",