[perl #56612] [BUG] Closures are broken.

[Patrick R. Michaud via RT]

Now fixed in r33193:

$ cat 55612
sub times($a,$b) {
    $a * $b;
};

sub divide($a,$b) {
    $a / $b;
}

sub make_op($op) {
    sub($a,$b) { $op($a,$b) }
};

my $t = make_op(&times);
say $t(21,2);

my $div = make_op(&divide);
say $div(42,2);

$ ./parrot perl6.pbc 55612
42
21
$


Thanks,

Pm