Prefer utf8_to_bytes_overwrite to utf8_to_bytes

The latter has never lost its experimental status
Perl · Jan 29, 2025 · 71404d3 · 71404d3
1 parent 63da182
commit 71404d3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/pp.c b/pp.c
@@ -2789,7 +2789,7 @@ S_scomplement(pTHX_ SV *targ, SV *sv)
         tmps = (U8*)SvPV_nomg(TARG, len);
 
         if (SvUTF8(TARG)) {
-            if (len && ! utf8_to_bytes(tmps, &len)) {
+            if (len && ! utf8_to_bytes_overwrite(&tmps, &len)) {
                 Perl_croak(aTHX_ FATAL_ABOVE_FF_MSG, PL_op_desc[PL_op->op_type]);
             }
             SvCUR_set(TARG, len);

diff --git a/sv.c b/sv.c
@@ -3644,7 +3644,7 @@ Perl_sv_utf8_downgrade_flags(pTHX_ SV *const sv, const bool fail_ok, const U32 f
             }
             s = (U8 *) SvPV_flags(sv, len, mg_flags);
 
-            if (!utf8_to_bytes(s, &len)) {
+            if (!utf8_to_bytes_overwrite(&s, &len)) {
                 if (fail_ok)
                     return FALSE;
                 else {