This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re-enable static op allocation with obslab
[perl5.git] / op.c
diff --git a/op.c b/op.c
index 8fccf71..df5c050 100644 (file)
--- a/op.c
+++ b/op.c
@@ -303,7 +303,8 @@ Perl_Slab_Free(pTHX_ void *op)
     PERL_ARGS_ASSERT_SLAB_FREE;
 
     if (!o->op_slabbed) {
-       PerlMemShared_free(op);
+        if (!o->op_static)
+           PerlMemShared_free(op);
        return;
     }