# New Ticket Created by na...@khemir.net
# Please include the string: [perl #71810]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=71810 >
rakudo commit: db84bc06990c37b93fe987dcffab4ed9bf31de92
build/PARROT_REVISION: 43076 1.9.0
Case 1:
multi sub identify(Int $x) {}
sub identify(Int $x, Str $y) {}
# gives no warnings
Case 2:
multi sub identify(Int $x) {}
sub identify(Int $x, Str $y) {}
multi sub identify(Int $x, Str $y) {}
# gives push_pmc() not implemented in class 'Sub'
Case 3:
multi sub A(Int $x) {}
sub A(Int $x, Str $y) {1}
sub A(Int $x, Str $y) {2}
sub X(Int $x, Str $y) {1}
sub X(Int $x, Str $y) {2}
# Redefinition of routine X only
