[win32] merge missing part of change#663 from maint branch

p4raw-link: @663 on //depot/maint-5.004/perl: 36293e4078b5fb9c4b401b7a9b34e650b92ea79e

p4raw-id: //depot/win32/perl@925

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 7459ae6d4f..73bd676cfa 100644
--- a/op.c
+++ b/op.c
@@ -1241,6 +1241,7 @@ mod(OP *o, I32 type)
     else if (!type) {
 	o->op_private |= OPpLVAL_INTRO;
 	o->op_flags &= ~OPf_SPECIAL;
+	hints |= HINT_BLOCK_SCOPE;
     }
     else if (type != OP_GREPSTART && type != OP_ENTERSUB)
 	o->op_flags |= OPf_REF;