This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Combine macro calls
[perl5.git] / 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);