[perl #127621] bizarre usage ouput for sub MAIN($foo,*%) { }

[Zoffix Znet via RT]

On Fri, 26 Feb 2016 18:09:15 -0800, lloyd.fo...@gmail.com wrote:
> perl6 -e 'sub MAIN($foo,*%) { }'
> 
> Usage:
> 
>   -e '...' [--<(HANDLED) Start argument to substr out of range. Is: 1,
> should be in 0..0; use *1 if you want to index relative to the end
>   in block <unit> at -e line 1
> >=...] <foo>


Thank you for the report. This is now fixed.

Fix: https://github.com/rakudo/rakudo/commit/38ec79c623
Test: https://github.com/perl6/roast/commit/a26b352434