[perl #76096] [BUG] Can't have a '-->' after a parameter with a 'where' clause in Rakudo

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #76096]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=76096 >


<masak> rakudo: sub foo($x where 1 --> Int) {}
<p6eval> rakudo 4e6cce: OUTPUT«===SORRY!===␤Missing block at line 11,
near "-> Int) {}"␤»
<masak> std: sub foo($x where 1 --> Int) {}
<p6eval> std 31447: OUTPUT«ok 00:01 113m␤»
* masak submits rakudobug
<masak> seems 'where' and '-->' in signatures don't play well together
in Rakudo.
<moritz_> masak: what about where { block } + --> ?
<masak> moritz_: same ordeal.
<moritz_> rakudo: sub foo($x where { $_ ~~ 1} --> Int) { }
<p6eval> rakudo 4e6cce: OUTPUT«===SORRY!===␤Missing block at line 11,
near "-> Int) {"␤»
<masak> std: sub foo($x where { $_ ~~ 1} --> Int) { }
<p6eval> std 31447: OUTPUT«ok 00:01 112m␤»
<masak> moritz_: good you pointed that out. adding that to the ticket.
<masak> the block form was the way I discovered it. the 1 was the
golfed variant :)