[perl #125595] [LHF] LTA error message with malformed loops

[via RT]

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


Code:
loop (my $i = 0; $i <= 5; $i++;) { say }

Result:
===SORRY!=== Error while compiling ./test.pl
Missing block
at ./test.pl:2
------> loop (my $i = 0; $i <= 5; $i++⏏;) { say }

This error message could be better. Currently it is a bit confusing and
makes me want to do this:
loop (my $i = 0; $i <= 5; $i++ { say };) { say }

===SORRY!=== Error while compiling ./test.pl
Unexpected block in infix position (missing statement control word before
the expression?)
at ./test.pl:2
------> loop (my $i = 0; $i <= 5; $i++⏏ { say };) { say }
    expecting any of:
        infix
        infix stopper

STD does a much better job at detecting the actual problem and says
"Malformed loop spec" – now that's awesome.

IRC log: http://irclog.perlgeek.de/perl6/2015-07-10#i_10879185