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

diff --git a/op.c b/op.c
index 267039a..b0a5bc4 100644 (file)
--- 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;
 }