[perl #100180] [BUG] Giving infix: a negative rhs throws an internal Parrot exception in Rakudo

[Carl Mäsak]

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


<masak> rakudo: say " "x 9-$_,"#"x$_*2-1 for 0..9,2 xx 3
<p6eval> rakudo 6b21ca: OUTPUT«Caught exception of unknown type --
this probably should not happen␤Cannot repeat with negative arg␤  in
sub infix:<x> [...]
<masak> :(
* masak submits rakudobug
<masak> moritz: maybe the x
<moritz> perl6: say 'a' x -1
<p6eval> rakudo 6b21ca: OUTPUT«Caught exception of unknown type --
this probably should not happen␤Cannot repeat with negative arg␤  in
sub infix:<x> [...]
<p6eval> ..pugs, niecza v10-5-ga8e6d5e: OUTPUT«␤»
<masak> yeah. definitely a rakudobug.
<moritz> and easy to fix