[perl #123776] [@LARRY] Binding a variable at BEGIN time doesn't stick aruond for runtime

[email protected] ("Zoffix Znet via RT") Tue, 30 Jan 2018 15:08:38 -0800

Newsgroups	perl.perl6.compiler
Message-ID	<[email protected]>

On Fri, 01 Dec 2017 12:09:05 -0800, [email protected] wrote:
> Still reproducible (2017.11, HEAD(5929887)), but is supposed to work?

Don't see any reason why that'd be questionable.

> On 2015-02-09 17:43:52, [email protected] wrote:
> > m: my $a; BEGIN { $a := 1; say $a; }; say $a;
> > rakudo-{parrot,moar} 0cb22e: OUTPUT«1␤(Any)␤»
> >
> > m: my $a; BEGIN { $a = 1; say $a; }; say $a; # works with assignment
> > rakudo-{parrot,moar} 0cb22e: OUTPUT«1␤1␤»


Another manifestation of the same bug:

<Zoffix__> m: BEGIN { my $a1 := 42; say $a1; }
<camelia> rakudo-moar deffe54b8: OUTPUT: «42␤»
<Zoffix__> m: BEGIN { my $a1 = 42; say $a1; }
<camelia> rakudo-moar deffe54b8: OUTPUT: «42␤»
<Zoffix__> m: BEGIN my $a1 = 42; say $a1;
<camelia> rakudo-moar deffe54b8: OUTPUT: «42␤»
<Zoffix__> m: BEGIN my $a1 := 42; say $a1;
<camelia> rakudo-moar deffe54b8: OUTPUT: «(Mu)␤»