# New Ticket Created by Eric Wilhelm
# Please include the string: [perl #73078]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=73078 >
Hi,
I get this from both the git master and the 2010.02 release.
$ ./perl6 -e 'class Thing {has $.foo}; say Thing.^methods.join(",")'
maximum recursion depth exceeded
current instr.: 'perl6;Seq;!fill' pc 13433 (src/builtins/Multi.pir:22)
called from Sub 'perl6;SeqIter;get' pc 13622 (src/builtins/Routine.pir:113)
called from Sub 'perl6;List;get' pc 10338 (src/builtins/Role.pir:42)
called from Sub 'perl6;Iterator;eager' pc 10113
(src/gen/RoleToInstanceApplier.pir:2)
called from Sub 'perl6;Seq;!STORE' pc 13512 (src/builtins/Routine.pir:44)
called from Sub '&circumfix:<[ ]>' pc 13772 (src/builtins/Routine.pir:187)
called from Sub 'perl6;Array;push' pc 289520 (src/gen/core.pir:27795)
called from Sub 'perl6;ClassHOW;methods' pc 4304
(src/metamodel/ClassHOW.pir:437)
... call repeated 989 times
called from Sub '_block14' pc 29 (EVAL_1:0)
called from Sub '!UNIT_START' pc 1137 (src/glue/run.pir:17)
called from Sub 'perl6;PCT;HLLCompiler;eval' pc -1 ((unknown file):-1)
called from Sub 'perl6;PCT;HLLCompiler;command_line' pc 1489
(compilers/pct/src/PCT/HLLCompiler.pir:794)
--Eric
--
Turns out the optimal technique is to put it in reverse and gun it.
--Steven Squyres (on challenges in interplanetary robot navigation)
---------------------------------------------------
http://scratchcomputing.com
---------------------------------------------------
