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

[Zoffix Znet via RT]

On Mon, 02 Oct 2017 22:24:32 -0700, allber...@gmail.com wrote:
> [03 05:10:36]  m: subset MyStr of Str where 4 < *.chars <
> 10; my MyStr $s = 's';
> [03 05:10:37]  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]  what's happening here, how can I set that
> constraint?
> [03 05:15:05]  the error message is a bit cryptic
> [03 05:15:14]  it's an internal error that shouldn't happen
> (...)
> [03 05:19:42]  m: my  = 4 < *.chars < 10; say ("s")
> [03 05:19:43]  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]  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

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

[Zoffix Znet via RT]

On Mon, 02 Oct 2017 22:24:32 -0700, allber...@gmail.com wrote:
> [03 05:10:36]  m: subset MyStr of Str where 4 < *.chars <
> 10; my MyStr $s = 's';
> [03 05:10:37]  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]  what's happening here, how can I set that
> constraint?
> [03 05:15:05]  the error message is a bit cryptic
> [03 05:15:14]  it's an internal error that shouldn't happen
> (...)
> [03 05:19:42]  m: my  = 4 < *.chars < 10; say ("s")
> [03 05:19:43]  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]  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

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

[via RT]

# New Ticket Created by  Sam S. 
# Please include the string:  [perl #128859]
# in the subject line of all future correspondence about this issue. 
# https://rt.perl.org/Ticket/Display.html?id=128859 >


➜ my  = (1 < *+1 < 5);
===SORRY!===
QAST::Block with cuid 1 has not appeared

When removing the inner expression (so that the comparison chain get to deal 
with the Whatever star directly, rather than a WhateverCode), it works fine:

➜ my  = (1 < * < 5);

When replacing the comparison chain with a single comparison, it also works 
fine:

➜ my  = (1 < *+1);
➜ my  = (*+1 < 5);