extend change#2299 to C<use> (fixes scoping problems in

C<if (...) { use foo; ... }>)

p4raw-link: @2299 on //depot/perl: 7ad382f40c272949663b62a641674bd9771ee3b8

p4raw-id: //depot/perl@4314

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 267039a294..b0a5bc4fb3 100644
--- a/op.c
+++ b/op.c
@@ -2999,6 +2999,7 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *id, OP *arg)
 	        newSTATEOP(0, Nullch, veop)),
 	    newSTATEOP(0, Nullch, imop) ));
 
+    PL_hints |= HINT_BLOCK_SCOPE;
     PL_copline = NOLINE;
     PL_expect = XSTATE;
 }