From: Adrian M. Enache <enache@rdslink.ro>
Date: Sat, 20 Dec 2003 21:37:03 +0000 (+0000)
Subject: after back-references, restricted hashes.
X-Git-Tag: accepted/trunk/20130322.191538~22580
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=a18b03821cf93f26cfdbfc7f3fa4c6617a44f121;p=platform%2Fupstream%2Fperl.git

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
--- 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);