[perl #74836] [BUG] BEGIN blocks run outside the lexical scope of the setting

[jn...@jnthn.net via RT]

On Sat May 01 17:43:19 2010, stefa...@cox.net wrote:
> 17:38 < sorear> rakudo: say BEGIN { rand }
> 17:38 < p6eval> rakudo c4857a: OUTPUT«Could not find sub &rand␤current
> instr.:
>                 '_block11' pc 0 (EVAL_1:9)␤»
> 17:39 < sorear> rakudo: say rand
> 17:39 < p6eval> rakudo c4857a: OUTPUT«0.555681770990731␤»
> 
Now:

> say BEGIN { rand }
0.252399930355267

Given to moritz++ for spectests.

Thanks,

Jonathan