after back-references, restricted hashes.

see http://nntp.perl.org/group/perl.perl5.porters/86497
this is hopefully only a temporary solution.

p4raw-id: //depot/perl@21937

diff --git a/perl.c b/perl.c
index c03ea6a..1b9fd18 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -809,9 +809,6 @@ perl_destruct(pTHXx)
     SvREFCNT(&PL_sv_undef) = 0;
     SvREADONLY_off(&PL_sv_undef);
 
-    SvREFCNT(&PL_sv_placeholder) = 0;
-    SvREADONLY_off(&PL_sv_placeholder);
-
     Safefree(PL_origfilename);
     PL_origfilename = Nullch;
     Safefree(PL_reg_start_tmp);