[perl #125674] LTA error message prints wrong eject position: if True if { };

[via RT]

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


Code:
if True if { };

===SORRY!=== Error while compiling ./test.pl
Missing block
at ./test.pl:3
------> if True if ⏏{ };

Clearly the block is there. It seems like it expects a block before the
second "if", but the cursor is placed incorrectly. STD gets it right:

15:03:25<jnthn> std: if True if { };
15:03:26<camelia> std 28329a7: OUTPUT«===SORRY!===␤Missing block at
          /tmp/XbS0PJUJZo line 1:␤------> if True ⏏if { };␤Parse
          failed␤FAILED 00:00 135m␤»

Similar problem with "unless", "while" and maybe some others.

Tiny IRC discussion: http://irclog.perlgeek.de/perl6/2015-07-24#i_10947603