# New Ticket Created by "Brian S. Julin"
# Please include the string: [perl #125732]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=125732 >
# The following should all have the same result:
$ perl6 -e 'multi a ($x) { 41.say }; multi a (@a) { 42.say; nextsame };
a([1,2]);'
42
41
$ perl6 -e 'multi a (|c($x)) { 41.say }; multi a (|c(@a)) { 42.say; nextsame };
a([1,2]);'
41
$ perl6 -e 'multi a ($a) { 41.say }; multi a (Int $a) { 42.say; nextsame };
a(3);'
42
41
$ perl6 -e 'multi a (|c($a)) { 41.say }; multi a (|c(Int $a)) { 42.say;
nextsame }; a(3);'
41
...actual binding failures will make such MMDs work, only preferential binding
is not working.
Tests are already in the new S06-multi/signature.t file (but it needs
to be added to spectest.data.) I'll label them once I have an RT # for them,
