On Wed Sep 08 12:46:36 2010, [email protected] wrote: > 1. Rakudo version: > This is Rakudo Perl 6, version built on parrot 2.7.0 r48768 > > 2. Code that caused the bug: > sub incr1 (*@v is rw) { @v[0]++; @v[1]++; } > sub incr2 (*@v is rw) { for @v { $_++} } > > my ($a, $b) = (0, 0); > incr1($a, $b); > say "incr1: $a, $b"; > > ($a, $b) = (0, 0); > incr2($a, $b); > say "incr2: $a, $b"; > > 3. Output: > incr1: 0, 0 > incr2: 1, 1 > > 4. Expected output: > incr1: 1, 1 > incr2: 1, 1
Current output: incr1: 0, 0 incr2: 0, 0 -- Will "Coke" Coleda
