# New Ticket Created by "Patrick R. Michaud"
# Please include the string: [perl #43419]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=43419 >
Creating a HLL class with a name of 'Object' results in
"Class Object already registered!".
$ cat y.pir
.HLL "perl6", ""
.namespace
.sub main :main
# works
$P0 = new 'Class'
$P0.'name'('AnObject')
$S0 = $P0
say $S0
# fails
$P0 = new 'Class'
$P0.'name'('Object')
$S0 = $P0
say $S0
.end
$ ./parrot y.pir
perl6;AnObject
Class Object already registered!
current instr.: 'main' pc -1 ((unknown file):-1)
called from Sub 'main' pc 36 (y.pir:12)
$
I imagine that this fails for other built-in Parrot classes ('Hash',
'Array', etc.), but I only tested this one.
I'll add the above as a test into t/oo/ (per suggestion from Allison).
Thanks!
Pm