This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c:pmruntime: Remove redundant cv_forget_slab
[perl5.git] / op.c
diff --git a/op.c b/op.c
index e97a743..1ce69f1 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4712,8 +4712,6 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg, I32 floor)
                 * pad_fixup_inner_anons() can find it */
                (void)pad_add_anon(cv, o->op_type);
                SvREFCNT_inc_simple_void(cv);
                 * pad_fixup_inner_anons() can find it */
                (void)pad_add_anon(cv, o->op_type);
                SvREFCNT_inc_simple_void(cv);
-
-               cv_forget_slab(cv);
            }
            else {
                pm->op_code_list = expr;
            }
            else {
                pm->op_code_list = expr;