<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 (file)
--- 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",