unpackstring: Use bytes_to_utf8_temp_pv

This will only malloc if necessary.
Perl · Jan 31, 2025 · 9166631 · 9166631
1 parent 06fe63a
commit 9166631
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/pp_pack.c b/pp_pack.c
@@ -842,8 +842,7 @@ Perl_unpackstring(pTHX_ const char *pat, const char *patend, const char *s, cons
         /* We probably should try to avoid this in case a scalar context call
            wouldn't get to the "U0" */
         STRLEN len = strend - s;
-        s = (char *) bytes_to_utf8((U8 *) s, &len);
-        SAVEFREEPV(s);
+        s = (char *) bytes_to_utf8_temp_pv((U8 *) s, &len);
         strend = s + len;
         flags |= FLAG_DO_UTF8;
     }