diff options
author | Richard Leach <richardleach@users.noreply.github.com> | 2021-05-28 02:00:17 +0100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2021-11-01 09:36:27 +1100 |
commit | 11e7ed3342a412dba2546230e367d8deee3bcb24 (patch) | |
tree | f6004c09e017a8cd40af136afdf375cf6094fc0d /pp_sys.c | |
parent | 49a73a262cd71d15e5dd08eecb48d421698ef832 (diff) | |
download | perl-11e7ed3342a412dba2546230e367d8deee3bcb24.tar.gz |
pp_system: safe to switch in sv_setpvn_fresh here
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4364,7 +4364,7 @@ PP(pp_system) sv_2mortal(copysv); if (SvPOK(origsv) || SvPOKp(origsv)) { pv = SvPV_nomg(origsv, len); - sv_setpvn(copysv, pv, len); + sv_setpvn_fresh(copysv, pv, len); SvPOK_off(copysv); } if (SvIOK(origsv) || SvIOKp(origsv)) |