[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. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=128859 >


    ➜ my &x = (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 &x = (1 < * < 5);

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

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