skip readonly vars and unref references when doing a reset()

p4raw-id: //depot/perl@1998

1 files changed, 8 insertions, 2 deletions

diff --git a/sv.c b/sv.c
index ec224a38b5..ad38a8762e 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);