[perl #46457] [BUG][IMCC] long sub invocation with named parameters

[NotFound via RT]

The code in this ticket does not parse. Is using obsolete syntax? Can
someone provide an updated version?