From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 8 Oct 1999 07:17:01 +0000 (+0000)
Subject: extend change#2299 to C<use> (fixes scoping problems in
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c305c6a05369da2338dc1201b35b0dff2e8d6a5d;p=p5sagit%2Fp5-mst-13.2.git

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