To squash: breaking down the lvalue assignment for newsv

Perl · Apr 2, 2024 · 8431a52 · 8431a52
1 parent 6f97127
commit 8431a52
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/op.c b/op.c
@@ -5549,7 +5549,15 @@ Perl_op_convert_list(pTHX_ I32 type, I32 flags, OP *o)
                 sv_copypv_nomg(newsv, sv);
                 SvFLAGS(newsv) |= (SVf_READONLY|SVf_PROTECT);
                 SvREFCNT_dec_NN(sv);
-                cSVOPx_sv(o) = newsv;
+#ifdef USE_ITHREADS
+                if (cSVOPx(o)->op_sv) {
+                    cSVOPx(o)->op_sv = newsv;
+                } else {
+                    PAD_SVl((o)->op_targ) = newsv;
+                }
+#else
+                cSVOPx(o)->op_sv = newsv;
+#endif
             }
         }
         return o;