From: Karl Williamson <khw@cpan.org>
Date: Fri, 29 Jan 2016 18:53:10 +0000 (-0700)
Subject: regexec.c: Macro needs param to be dereferenced
X-Git-Tag: v5.23.8~181
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/dcf88e3433dcd5bc25811f9769e82d04c61a1d5a

regexec.c: Macro needs param to be dereferenced

This is a potential bug, but didn't show up, as real addresses are
always going to be larger than 128, and hence the macro here would show
false, and the code only used true to short circuit some other code, so
it always would take the long way.
---

diff --git a/regexec.c b/regexec.c
index e7a890d..8e1c1f6 100644
--- a/regexec.c
+++ b/regexec.c
@@ -6120,7 +6120,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
 	case ANYOF:  /*   /[abc]/       */
             if (NEXTCHR_IS_EOS)
                 sayNO;
-	    if (utf8_target && ! UTF8_IS_INVARIANT(locinput)) {
+	    if (utf8_target && ! UTF8_IS_INVARIANT(*locinput)) {
 	        if (!reginclass(rex, scan, (U8*)locinput, (U8*)reginfo->strend,
                                                                    utf8_target))
 		    sayNO;