From @ronaldxs

See on IRC http://irclog.perlgeek.de/perl6/2011-05-08#i_3697897

but for convenience I will include essential results below​:

21​:43 PhatEddy rakudo​: my @​a = (1); @​a ||= (); say @​a
21​:43 p6eval rakudo 705435​: ( no output )
21​:44 PhatEddy rakudo​: my @​a = (1); @​a ||= (); say ~@​a
21​:44 p6eval rakudo 705435​: OUTPUT«(timeout)»
21​:52 PhatEddy rakudo​: my @​a = (); say @​a.perl; @​a ||= (); say @​a.perl
21​:52 p6eval rakudo 705435​: OUTPUT«[]␤[()]␤»
21​:56 tadzik rakudo​: my @​a = (1); @​a ||= (); say @​a.perl
21​:56 p6eval rakudo 705435​: OUTPUT«maximum recursion depth exceeded␤ in 'Block​::count' at line 6342​:CORE.setting␤ in 'Block​::count' at line 6342​:CORE.setting␤ in 'Any​::join' at line 1␤ in 'Array​::perl' at line 3161​:CORE.setting␤ in<anon> at line 3161​:CORE.setting␤ in 'Any​::join' at line 1␤ in
21​:56 ..'Array​::perl' a…

From @ronaldxs

Just tried this today and it appears to me to be fixed. Will close in
next day or so if no objection.

Ron

@ronaldxs - Status changed from 'new' to 'open'

From @coke

On Thu, Dec 1, 2011 at 11​:09 AM, Ron Schmidt via RT
<perl6-bugs-followup@​perl.org> wrote​:

Just tried this today and it appears to me to be fixed.  Will close in
next day or so if no objection.

Ron

Is there a spec test that prevents this from regressing?

--
Will "Coke" Coleda

From @jnthn

On Mon May 09 03​:05​:24 2011, ronaldxs wrote​:

See on IRC http://irclog.perlgeek.de/perl6/2011-05-08#i_3697897

but for convenience I will include essential results below​:

21​:43 PhatEddy rakudo​: my @​a = (1); @​a ||= (); say @​a
21​:43 p6eval rakudo 705435​: ( no output )
21​:44 PhatEddy rakudo​: my @​a = (1); @​a ||= (); say ~@​a
21​:44 p6eval rakudo 705435​: OUTPUT«(timeout)»
21​:52 PhatEddy rakudo​: my @​a = (); say @​a.perl; @​a ||= (); say
@​a.perl
21​:52 p6eval rakudo 705435​: OUTPUT«[]␤[()]␤»
21​:56 tadzik rakudo​: my @​a = (1); @​a ||= (); say @​a.perl
21​:56 p6eval rakudo 705435​: OUTPUT«maximum recursion depth exceeded␤
in 'Block​::count' at line 6342​:CORE.setting␤ in 'Block​::count' at
line 6342​:CORE.setting␤ in 'Any​::join' at line 1␤ in
'Array​::perl' at line 3161​:CORE.setting␤ in<anon> at line
3161​:CORE.setting␤ in 'Any​::join' at line 1␤ in
21​:56 ..'Array​::perl' a…

my @​a = (1); @​a ||= (); say ~@​a
1
my @​a = (1); @​a ||= (); say @​a.perl
Array.new(1)

Tagging testneeded.

/jnthn

From @moritz

Tested in S03-operators/short-circuit.t.

@moritz - Status changed from 'open' to 'resolved'