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, 11 insertions, 1 deletions

diff --git a/op.c b/op.c
index 6d3a6d3177..7c5587e6d5 100644
--- a/op.c
+++ b/op.c
@@ -1518,11 +1518,21 @@ scope(OP *o)
     return o;
 }
 
+void
+save_hints(void)
+{
+    SAVEI32(hints);
+    SAVESPTR(GvHV(hintgv));
+    GvHV(hintgv) = newHVhv(GvHV(hintgv));
+    SAVEFREESV(GvHV(hintgv));
+}
+
 int
 block_start(int full)
 {
     dTHR;
     int retval = savestack_ix;
+
     SAVEI32(comppad_name_floor);
     if (full) {
 	if ((comppad_name_fill = AvFILLp(comppad_name)) > 0)
@@ -1537,7 +1547,7 @@ block_start(int full)
     SAVEI32(padix_floor);
     padix_floor = padix;
     pad_reset_pending = FALSE;
-    SAVEI32(hints);
+    SAVEHINTS();
     hints &= ~HINT_BLOCK_SCOPE;
     return retval;
 }