[perl #76212] for block sometimes run twice, which is wrong

[via RT]

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


JimmyZ>    rakudo: use MONKEY_TYPING; my $d = ''; augment class Str { method 
some_meth_1 {$d = $d ~ self;}}; for '0' .. '5' { .WHAT.say; .some_meth_1; }; # 
known bug? runing twice.
<p6eval>rakudo 09314d: OUTPUT«Str()␤Str()␤Method 'some_meth_1' not found for 
invocant of class 'String'␤ in main program body at line 11:/tmp/gLI4jA4RDD␤»

 
jnthn>  JimmyZ: Seems that there is more than one bug there...
JimmyZ>    jnthn: I don't know the more ones.

在此祝你身体健康，天天快乐
卓明亮