mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

Perl_hv_common: sv_2mortal(newSVsv()) to sv_mortalcopy_flags()

Browse Source
This commit is contained in:
Richard Leach 2025-03-24 00:59:55 +00:00
parent 8294975f8d
commit 91c779a4e6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hv.c
View File

@ -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 {