back out change #22167 "freeing a CV reference that was currently

being executed caused coredumps".
The new test case sometimes locks up linux's malloc, and with
Perl's malloc the test code still coredumps :-(
p4raw-link: @22167 on //depot/perl: b3a3b3a1da8f5142edf3e194532b08316f895282

p4raw-id: //depot/perl@22172

1 files changed, 0 insertions, 3 deletions

diff --git a/perl.c b/perl.c
index aa37e2f15b..f32e346950 100644
--- a/perl.c
+++ b/perl.c
@@ -699,9 +699,6 @@ 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())
 	;