Use sv_setpvs() like a few lines before since change #33557

p4raw-link: @33557 on //depot/perl: 502d9230ec570254fed51ae721c1da50944a5cbf

p4raw-id: //depot/perl@33560

diff --git a/pp.c b/pp.c
index 3551d8f..8e2a395 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -3199,7 +3199,7 @@ PP(pp_substr)
                else if (SvOK(sv))      /* is it defined ? */
                    (void)SvPOK_only_UTF8(sv);
                else
-                   sv_setpvn(sv,"",0); /* avoid lexical reincarnation */
+                   sv_setpvs(sv, ""); /* avoid lexical reincarnation */
            }
 
            if (SvTYPE(TARG) < SVt_PVLV) {