PL_my_cxt_list is only available with PERL_IMPLICIT_CONTEXT
authorTony Cook <tony@develop-help.com>
Wed, 1 Sep 2010 13:14:51 +0000 (23:14 +1000)
committerTony Cook <tony@develop-help.com>
Wed, 1 Sep 2010 13:14:51 +0000 (23:14 +1000)
perl.c

diff --git a/perl.c b/perl.c
index 7e135ca..e0b9fa6 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1071,9 +1071,11 @@ perl_destruct(pTHXx)
                             (long)cxstack_ix + 1);
     }
 
+#ifdef PERL_IMPLICIT_CONTEXT
     /* the entries in this list are allocated via SV PVX's, so get freed
      * in sv_clean_all */
     Safefree(PL_my_cxt_list);
+#endif
 
     /* Now absolutely destruct everything, somehow or other, loops or no. */