This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Combine macro calls
authorKarl Williamson <public@khwilliamson.com>
Sat, 5 May 2012 17:16:50 +0000 (11:16 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sun, 17 Jun 2012 17:35:06 +0000 (11:35 -0600)
Replace a combination of macro calls with a single one that means the
 same thing

toke.c

diff --git a/toke.c b/toke.c
index 4949fdf..779990e 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2991,7 +2991,7 @@ S_scan_const(pTHX_ char *start)
                /* FALL THROUGH */
            default:
                {
-                   if ((isALPHA(*s) || isDIGIT(*s)))
+                   if ((isALNUMC(*s)))
                        Perl_ck_warner(aTHX_ packWARN(WARN_MISC),
                                       "Unrecognized escape \\%c passed through",
                                       *s);