This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
back out change #22167 "freeing a CV reference that was currently
[perl5.git] / perl.c
diff --git a/perl.c b/perl.c
index aa37e2f..f32e346 100644 (file)
--- 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())
        ;