[perl #77168] typed list causes recursion limit hit

[via RT]

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


use v6;

class A {};
class B is A {};
class C is A {};

my $b = B.new();
my $c = C.new();

my A @l;
# my @l; # that way it works right now

@l.push(B.new(), C.new());
@l.sort; # <-- line 14

--

maximum recursion depth exceeded
   in 'at_pos' at line 5:CORE.setting
   in 'at_pos' at line 7:CORE.setting
   in 'Any::postcircumfix:<[ ]>' at line 1658:CORE.setting
   in 'at_pos' at line 5:CORE.setting
   in 'at_pos' at line 7:CORE.setting
   in 'Any::postcircumfix:<[ ]>' at line 1658:CORE.setting

[...]

   in 'at_pos' at line 5:CORE.setting
   in 'at_pos' at line 7:CORE.setting
   in 'Any::postcircumfix:<[ ]>' at line 1658:CORE.setting
   in <anon> at line 1
   in 'List::sort' at line 2581:CORE.setting
   in main program body at line 14:sort_recursion_limit_hit.p6

-- 
Nobody knows the age of the human race, but everybody agrees that it is 
old enough to know better.
        -- Anonymous