[differences between cumulative patch application and perl5.004_01]perl-5.004_01

[editor's note: The changes between this and 5.004 were processed from
the m1t2 release, which was a bad idea as it was the _01 release which
had the final corrected attributions.  The differences between the
various m*t* releases do that; I considered it most valuable just to
look at the _NN releases.  Many patches have been separated out and/or
applied from the p5p archives nonetheless.]

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index 6c8553074e..e37b23a8f3 100644
--- a/op.c
+++ b/op.c
@@ -985,6 +985,7 @@ I32 type;
 
     switch (op->op_type) {
     case OP_UNDEF:
+	modcount++;
 	return op;
     case OP_CONST:
 	if (!(op->op_private & (OPpCONST_ARYBASE)))
@@ -2008,6 +2009,7 @@ OP *repl;
     if (op->op_type == OP_TRANS)
 	return pmtrans(op, expr, repl);
 
+    hints |= HINT_BLOCK_SCOPE;
     pm = (PMOP*)op;
 
     if (expr->op_type == OP_CONST) {