[perl #60570] Wrong error message about passed args when signature with named argument

[via RT]

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


Hi!
example:

sub bar (@ar, :$a) { ... }
bar(); #too few arguments passed (0) - 4 params expected

If signature without named args, all right.

Ilya