From: Karl Williamson <public@khwilliamson.com>
Date: Sat, 5 May 2012 17:16:50 +0000 (-0600)
Subject: toke.c: Combine macro calls
X-Git-Tag: v5.17.1~82
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/e4ca4584983d0fa049d2152a8515e1131406b6e0?hp=937b2e03e541820ee46da2b99aa38321dddcc776

toke.c: Combine macro calls

Replace a combination of macro calls with a single one that means the
 same thing
---

diff --git a/toke.c b/toke.c
index 4949fdf..779990e 100644
--- 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);