# New Ticket Created by raiph
# Please include the string: [perl #131406]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=131406 >
put $*PERL.compiler.version; # 2017.05.303.g.5.e.3393454
use NativeCall; put CArray[Pointer].^shortname;
displays 'Pointer]' instead of expected 'CArray[Pointer]' or similar.
The 'CArray' is missing and so is the expected open square bracket.
timotimo++ noted that this is a problem in the
Perl6::Metamodel::Naming method set_name, specifically the lines:
my @parts := nqp::split('::', $name);
...
$!shortname := @parts ?? @parts[nqp::elems(@parts) - 1] !! '';
See https://irclog.perlgeek.de/perl6/2017-05-30#i_14662809 for some
investigation into which commit appeared to introduce this bug.
