[perl #116595] [BUG] Nesting wrapping roles bind 'callsame' to the wrong recipient in Rakudo

[Will Coleda via RT]

On Wed, 30 Jan 2013 07:17:38 -0800, masak wrote:
> <masak> rn: role F[$n] { method x { callsame; callsame until $.v % $n } 
> }; class S { has $.v is rw = 1; method x { ++$.v } }; my $s = S.new; for 
> ^3 { $s.x; say $s.v; $s = $s but F[$s.v] }
> <p6eval> niecza v24-18-gaf64300: OUTPUT«2␤3␤5␤»
> <p6eval> ..rakudo b3fc32: OUTPUT«(timeout)2␤3␤»
> <masak> jnthn: this is as short as I'm able to golf it.
> <masak> jnthn: the problem happens in the 'callsame' in the 'until' loop, 
> and the .x method in the S object never gets triggered. or rather, it 
> gets triggered in Niecza, but it gets waylaid in Rakudo.

Unchanged behavior in 2018.05-55-g95aa77c94
-- 
Will "Coke" Coleda