[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

diff --git a/op.c b/op.c
index 7459ae6..73bd676 100644 (file)
--- 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;