[perl #59720] [BUG] Parrot doesn't allow two HLLs to have a class of the same name

[Patrick R. Michaud (via RT)]

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


Parrot doesn't seem to allow two HLLs to have identically named classes.
This is probably very closely related to the problem described in RT #43419,
but goes beyond built-in PMCs to include HLL-specific classes.

Here's the test code, as of r31788:

    .sub main
        ##  create Foo::ABC class in 'perl6'
        $P0 = get_root_namespace ['perl6';'Foo';'ABC']
        $P1 = newclass $P0
        $P2 = new $P1
        $P2.'bark'()
    
        ##  create Foo::ABC class in 'python'
        $P0 = get_root_namespace ['python';'Foo';'ABC']
        $P1 = newclass $P0
        $P2 = new $P1
        $P2.'bark'()
    
    .end
    
    .HLL 'perl6', ''
    
    .namespace ['Foo';'ABC']
    .sub 'bark' :method
        say "<perl6> Foo::ABC::bark"
    .end
    
    
    .HLL 'python', ''
    
    .namespace ['Foo';'ABC']
    .sub 'bark' :method
        say "<python> Foo::ABC::bark"
    .end
    
    $ ./parrot z1.pir
    <perl6> Foo::ABC::bark
    get_string() not implemented in class 'ResizableStringArray'
    current instr.: 'main' pc 20 (z1.pir:10)
    $

Pm