[perl #24914] freeing a CV reference that was currently being

 executed caused coredumps

p4raw-id: //depot/perl@22167

1 files changed, 3 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index f32e346950..aa37e2f15b 100644
--- a/perl.c
+++ b/perl.c
@@ -699,6 +699,9 @@ perl_destruct(pTHXx)
     SvFLAGS(PL_fdpid) |= SVTYPEMASK;		/* don't clean out pid table now */
     SvFLAGS(PL_strtab) |= SVTYPEMASK;		/* don't clean out strtab now */
 
+    PL_comppad = Null(PAD*);
+    PL_curpad = Null(SV**);
+
     /* the 2 is for PL_fdpid and PL_strtab */
     while (PL_sv_count > 2 && sv_clean_all())
 	;