From 9e35f4b3b47f076a1cad0f1048e606c50cb5ac32 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 17 Oct 1998 03:00:40 +0000
Subject: [PATCH] skip readonly vars and unref references when doing a reset()

p4raw-id: //depot/perl@1998
---
 sv.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/sv.c b/sv.c
index ec224a3..ad38a87 100644
--- a/sv.c
+++ b/sv.c
@@ -3957,12 +3957,18 @@ sv_reset(register char *s, HV *stash)
 	}
 	for (i = 0; i <= (I32) HvMAX(stash); i++) {
 	    for (entry = HvARRAY(stash)[i];
-	      entry;
-	      entry = HeNEXT(entry)) {
+		 entry;
+		 entry = HeNEXT(entry))
+	    {
 		if (!todo[(U8)*HeKEY(entry)])
 		    continue;
 		gv = (GV*)HeVAL(entry);
 		sv = GvSV(gv);
+		if (SvTHINKFIRST(sv)) {
+		    if (!SvREADONLY(sv) && SvROK(sv))
+			sv_unref(sv);
+		    continue;
+		}
 		(void)SvOK_off(sv);
 		if (SvTYPE(sv) >= SVt_PV) {
 		    SvCUR_set(sv, 0);
-- 
2.7.4