Fix READONLY hashes:

 1. Discovered need for disabled scope.c part of Jeff's patch.
 2. Corrected hv_delete* - entry was being de-linked from
    chain (patch program not smart enough?)

p4raw-id: //depot/perlio@13795

1 files changed, 1 insertions, 2 deletions

diff --git a/scope.c b/scope.c
index da5fa6b581..7c02951d26 100644
--- a/scope.c
+++ b/scope.c
@@ -827,9 +827,8 @@ Perl_leave_scope(pTHX_ I32 base)
 		 * if a my variable that was made readonly is going out of
 		 * scope, we want to remove the readonlyness so that it can
 		 * go out of scope quietly
-		 * Disabled as I don't see need yet NI-S 2001/12/18
 		 */
-		if (0 && SvPADMY(sv) && ! SvFAKE(sv))
+		if (SvPADMY(sv) && !SvFAKE(sv))
 		    SvREADONLY_off(sv);
 
 		if (SvTHINKFIRST(sv))