# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #114882]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=114882 >
<TimToady> r: proto sub f(|) { my $m //= {*}; 42 + $m + 23 }; multi
f($i) { $i }; say f 18000
<p6eval> rakudo 100727: OUTPUT«(signal SEGV)»
<TimToady> except it doesn't actually work for memoizing yet
<masak> SEGV? has that been reported?
<TimToady> doubt it
<TimToady> locally: get_pointer() not implemented in class 'QAST::Stmts'
* masak submits rakudobug
<japhb> r: proto sub f(|) { my $m //= {*}; }; multi f($i) { $i }; say f 1
<p6eval> rakudo 100727: OUTPUT«(signal SEGV)»
<japhb> r: proto sub f(|) { my $m //= {*}; }; multi f($i) { $i }; say f 1
<p6eval> rakudo 100727: OUTPUT«(signal SEGV)»
<masak> so, it's the //= in a proto that causes trouble?
<TimToady> apparently
<TimToady> which makes it hard to use for caching
<masak> TimToady: "the segfault put a serious damper on my caching"? :P
<japhb> r: proto f(|) { my $m //= {*} }; multi f() { }; say f
<p6eval> rakudo 100727: OUTPUT«get_pointer() not implemented in class
'BlockInfo' [...]
<japhb> Why should masak++ get all the golfing fun? ;-)
<masak> japhb++
