Some Chip patches (some tweaked to match _5x source):

	Subject: [PATCH] local leakage
	Date: Tue, 3 Feb 1998 09:16:50 -0500 (EST)
	Subject: [PATCH] NULs in patterns
	Date: Wed, 4 Feb 1998 01:33:51 -0500 (EST)
	Subject: [PATCH] Configure on PerlIO
	Date: Wed, 4 Feb 1998 01:38:43 -0500 (EST)
	Subject: [PATCH] Avoid core dump on package alias
	Date: Wed, 4 Feb 1998 15:38:42 -0500 (EST)
	Subject: [PATCH] Fix name of $Foo::{'Bar::'}
	Date: Wed, 4 Feb 1998 16:37:51 -0500 (EST)

p4raw-id: //depot/perl@462

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 88d647518b..3cff0b28b0 100644
--- a/op.c
+++ b/op.c
@@ -1162,6 +1162,7 @@ mod(OP *o, I32 type)
 	/* FALL THROUGH */
     case OP_GV:
     case OP_AV2ARYLEN:
+	hints |= HINT_BLOCK_SCOPE;
     case OP_SASSIGN:
     case OP_AELEMFAST:
 	modcount++;