[perl #128859] [BUG] WhateverCode in a chained comparison fails to parse ("QAST::Block with cuid 1 has not appeared")

On Mon, 02 Oct 2017 22:24:32 -0700, [email protected] wrote:
> [03 05:10:36] <hoffentlichja> m: subset MyStr of Str where 4 < *.chars <
> 10; my MyStr $s = 's';
> [03 05:10:37] <camelia> rakudo-moar fcbd8a: OUTPUT: «===SORRY!===␤
> [03 05:10:37]  QAST::Block with cuid 1 has not appeared␤
> [03 05:10:37]  »
> [03 05:11:12] <hoffentlichja> what's happening here, how can I set that
> constraint?
> [03 05:15:05] <hoffentlichja> the error message is a bit cryptic
> [03 05:15:14] <geekosaur> it's an internal error that shouldn't happen
> (...)
> [03 05:19:42] <geekosaur> m: my &s = 4 < *.chars < 10; say &s("sssss")
> [03 05:19:43] <camelia> rakudo-moar fcbd8a: OUTPUT: «===SORRY!===␤
> [03 05:19:43]  QAST::Block with cuid 1 has not appeared␤
> [03 05:19:43]  »
> [03 05:19:58] <geekosaur> looks like WhateverCode parsing doesn't mix well
> with chained comparisons
> 


Thank you for the report. This is now fixed.

Fix:  https://github.com/rakudo/rakudo/commit/752bb8b381a06dd
Test: https://github.com/perl6/roast/commit/bfe4cb9c2c0952b44