[perl #40490] Flat/Slurpy Named Parameter Passing Errors

[via RT]

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


Given this code:

.sub 'main' :main
    .local pmc args
    args = new .Hash
    args['foo'] = 1
    args['bar'] = 2

    bar_only( args :flat :named )
.end

.sub 'bar_only'
    .param string bar  :named( 'bar' )
    .param pmc    args :named :slurpy

    print "Have bar: "
    print bar
    print "\n"
.end

I expect bar to be '2' in bar_only().  Somehow the value seems to get lost.  
I'll add this test to t/op/calling.t when I get the ticket number.

-- c