develooper Front page | perl.perl6.compiler | Postings from January 2013

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

Thread Previous | Thread Next
From:
=?UTF-8?B?Q2FybCBNw6RzYWs=?= via RT
Date:
January 30, 2013 15:17
Subject:
[perl #116595] [BUG] Nesting wrapping roles bind 'callsame' to the wrong recipient in Rakudo
Message ID:
rt-3.6.HEAD-27190-1359559058-1270.116595-15-0@perl.org
<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.

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About