From 91c779a4e66d68028e5016c5008fdff5c5136018 Mon Sep 17 00:00:00 2001
From: Richard Leach <richardleach@users.noreply.github.com>
Date: Mon, 24 Mar 2025 00:59:55 +0000
Subject: [PATCH] Perl_hv_common: sv_2mortal(newSVsv()) to
 sv_mortalcopy_flags()

---
 hv.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hv.c b/hv.c
index 58b1dbcdb3..8c65091fd2 100644
--- a/hv.c
+++ b/hv.c
@@ -650,7 +650,7 @@ Perl_hv_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
                     if (!keysv) {
                         keysv = newSVpvn_flags(key, klen, SVf_UTF8|SVs_TEMP);
                     } else {
-                        keysv = sv_2mortal(newSVsv(keysv));
+                        keysv = sv_mortalcopy_flags(keysv, SV_GMAGIC|SV_NOSTEAL);
                     }
                     mg_copy(MUTABLE_SV(hv), sv, (char *)keysv, HEf_SVKEY);
                 } else {