[perl #90158] [BUG] my @x = (1); @x ||= (); say ~@x; dies with max recursion depth exceeded.

[via RT]

# New Ticket Created by  Ron Schmidt 
# Please include the string:  [perl #90158]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=90158 >


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…