[perl #60604] closure in grep?

[Patrick R. Michaud via RT]

Now fixed in r33193:

$ cat 60604
class A {
    method foo (@a) {
        @a.grep: { say @a }; # just for example, real code not so pointless
    }
}

my $o = A.new;

$o.foo(['foo']); # foo
$o.foo([1, 2]); # foo


$ ./parrot perl6.pbc 60604
foo
1 2
1 2
$

Thanks!

Pm