From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 13 May 1998 08:55:28 +0000 (+0000)
Subject: [win32] merge missing part of change#663 from maint branch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ca48fea705cdd276964538988256b00e487bc483;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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;