PL_my_cxt_list is only available with PERL_IMPLICIT_CONTEXT

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 7e135ca0b0..e0b9fa62ff 100644
--- 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. */