Use an LVALUE hv_fetch() in S_sequence_num() instead of fetch/store.

Perl · Aug 23, 2021 · 451833e · 451833e
1 parent 94344ab
commit 451833e
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/dump.c b/dump.c
@@ -949,10 +949,10 @@ S_sequence_num(pTHX_ const OP *o)
     key = SvPV_const(op, len);
     if (!PL_op_sequence)
         PL_op_sequence = newHV();
-    seq = hv_fetch(PL_op_sequence, key, len, 0);
-    if (seq)
+    seq = hv_fetch(PL_op_sequence, key, len, TRUE);
+    if (SvOK(*seq))
         return SvUV(*seq);
-    (void)hv_store(PL_op_sequence, key, len, newSVuv(++PL_op_seq), 0);
+    sv_setuv(*seq, ++PL_op_seq);
     return PL_op_seq;
 }