added patch for overloading constants, made PERL_OBJECT-aware

	Message-Id: <199806270328.XAA21088@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1259

1 files changed, 7 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index 5958aba3f5..c95ae54c20 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");
 	}