utf8.c case changing macros: Use utf8_to_uv_or_die()

Which is a single function call that replaces these several lines of code
Perl · Dec 18, 2024 · c768db2 · c768db2
1 parent 7496ff1
commit c768db2
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/utf8.c b/utf8.c
@@ -4351,11 +4351,7 @@ S_turkic_uc(pTHX_ const U8 * const p, const U8 * const e,
         }                                                                    \
     }                                                                        \
     else {  /* malformed UTF-8 or ord above 255 */                           \
-        STRLEN len_result;                                                   \
-        result = utf8n_to_uvchr(p, e - p, &len_result, UTF8_CHECK_ONLY);     \
-        if (len_result == (STRLEN) -1) {                                     \
-            force_out_malformed_utf8_message_(p, e, 0, MALFORMED_UTF8_DIE ); \
-        }
+        result = utf8_to_uv_or_die(p, e, NULL);                              \
 
 #define CASE_CHANGE_BODY_END(locale_flags, change_macro)                     \
         result = change_macro(result, p, ustrp, lenp);                       \