regexec.c: Use preferred utf8_to_uv; not utf8_to_uvchr_buf

This is in the function S_isFOO_utf8_lc()
Perl · Dec 5, 2024 · 0299b73 · 0299b73
1 parent 00f06a3
commit 0299b73
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/regexec.c b/regexec.c
@@ -615,8 +615,9 @@ S_isFOO_utf8_lc(pTHX_ const U8 classnum, const U8* character, const U8* e)
         case CC_ENUM_XDIGIT_:    return is_XDIGIT_high(character);
         case CC_ENUM_VERTSPACE_: return is_VERTWS_high(character);
         default:
-            return _invlist_contains_cp(PL_XPosix_ptrs[classnum],
-                                        utf8_to_uvchr_buf(character, e, NULL));
+            UV cp;
+            return    utf8_to_uv(character, e, &cp, NULL)
+                   && _invlist_contains_cp(PL_XPosix_ptrs[classnum], cp);
     }
     NOT_REACHED; /* NOTREACHED */
 }