[perl #54806] explicitly quoted argument key used as a named (instead of a positional) argument when called with parens

[via RT]

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


rakudo:

13:07:48 <diakopter> rakudo: sub foo(:$w=4){say $w};foo('w'=>3);foo(w=>3);
13:07:49 <?? exp_evalbot ??> OUTPUT[3␤3␤]

Note pugs' behavior:

13:07:56 <diakopter> pugs: sub foo(:$w=4){say $w};foo('w'=>3);foo(w=>3);
13:07:57 <?? exp_evalbot ??> OUTPUT[4␤3␤]


S06 says "Pairs intended as positional arguments rather than named
arguments may be indicated by extra parens or by explicitly quoting
the key to suppress autoquoting" and:

Only bare keys with valid identifier names are recognized as named arguments:

    doit when => 'now';         # always a named arg
    doit 'when' => 'now';       # always a positional arg