Ensure code in BEGIN blocks can see the correct view of GLOBAL.

jnthn · jnthn · commit 2ebb21ba89ff · 2012-02-21T22:33:42.000+01:00
diff --git a/src/NQP/World.pm b/src/NQP/World.pm
@@ -470,7 +470,10 @@ class NQP::World is HLL::World {
         
         # Compile and run it.
         my $code := self.create_code($wrapper, 'BEGIN block', 0);
+        my $old_global := pir::get_hll_global__PPs(nqp::list(), 'GLOBAL');
+        pir::set_hll_global__vPsP(nqp::list(), 'GLOBAL', $*GLOBALish);
         $code();
+        pir::set_hll_global__vPsP(nqp::list(), 'GLOBAL', $old_global);
     }
     
     # Sets NQP language defaults on a block for compilation.

Original file line number	Diff line number	Diff line change
`@@ -470,7 +470,10 @@ class NQP::World is HLL::World {`
`470`	`470`
`471`	`471`	`# Compile and run it.`
`472`	`472`	`my $code := self.create_code($wrapper, 'BEGIN block', 0);`
	`473`	`+ my $old_global := pir::get_hll_global__PPs(nqp::list(), 'GLOBAL');`
	`474`	`+ pir::set_hll_global__vPsP(nqp::list(), 'GLOBAL', $*GLOBALish);`
`473`	`475`	`$code();`
	`476`	`+ pir::set_hll_global__vPsP(nqp::list(), 'GLOBAL', $old_global);`
`474`	`477`	`}`
`475`	`478`
`476`	`479`	`# Sets NQP language defaults on a block for compilation.`