[perl #59082] call bug in the loop

[Patrick R. Michaud via RT]

Now fixed in r33193:

$ cat 59082
my $max = 13;

cl() for 1..2; # print only \n!
cl(); # print 13

sub cl { $max.say };


$ ./parrot perl6.pbc 59082
13
13
13
$

Thanks,

Pm