[perl #65272] Dispatch of static method call calls method in child class

[via RT]

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


The following script gives the ouput "A\nB", but the correct output
should probably be "A\nA".

class A {
    method x {
        say "A";
    }
}

class B is A {
    method x() {
        say "B";
    }
}

my B $b .= new;
A.HOW.dispatch($b, "x");
A.HOW.dispatch(B, "x");