[perl #63232] Rakudo doesn't Z together mixes of elements and ranges properly

[Vasily Chekalkin via RT]

On Sat Feb 14 08:16:28 2009, masak wrote:
> <masak> rakudo: for "a".."c" Z ("?", "a".."b") -> $x1, $x2 { say $x1,
$x2 }
> <p6eval> rakudo a0a390: OUTPUT«a?␤ba␤StopIteration [...]
> <masak> jnthn: does this look right to you?
> <TimToady> pugs: for "a".."c" Z ("?", "a".."b") -> $x1, $x2 { say $x1,
$x2 }
> <p6eval> pugs: OUTPUT«a?ba␤cb␤»
> * masak submits rakudobug
> <TimToady> looks right to me
> <masak> good enough for me :)
> <TimToady> shouldn't need the parens, either
> <masak> right. just making sure.
> <TimToady> pugs: for "a".."c" Z "?", "a".."b" -> $x1, $x2 { say $x1, $x2 }
> <p6eval> pugs: OUTPUT«a?ba␤cb␤»
> <jnthn> rakudo: say "a".."c" Z "?", "a".."b";
> <p6eval> rakudo a0a390: OUTPUT«a?bab␤»
> 
> From the last example, we see that there's a 'c' missing from the
> result of the Z.

One-line fix available at 
http://github.com/bacek/rakudo/commit/40254c113c0a87155c08be82baa1b47fd62a07d7

Someone (read "moritz") have to add tests :)

-- 
Bacek