X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=scope.c;h=c95ae54c2067f38889ae4dca4f68ea9f82dbeabc;hb=b3ac6de7f0c7a63b73f1cf3ea9e371470f7d1cb0;hp=5958aba3f50a9752d37fc1d10af7f70f8c004dcf;hpb=dde527fc6256d3b4a78a8a6187a9b8048cc76da5;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/scope.c b/scope.c
index 5958aba..c95ae54 100644
--- a/scope.c
+++ b/scope.c
@@ -806,6 +806,13 @@ leave_scope(I32 base)
 	case SAVEt_OP:
 	    op = (OP*)SSPOPPTR;
 	    break;
+	case SAVEt_NOHINTS:
+	    if (GvHV(hintgv)) {
+		SvREFCNT_dec((SV*)GvHV(hintgv));
+		GvHV(hintgv) = NULL;
+	    }
+	    *(I32*)&hints = (I32)SSPOPINT;
+	    break;
 	default:
 	    croak("panic: leave_scope inconsistency");
 	}