[perl #58368] Matching against a token imported from a many-jointed namespace makes Rakudo segfault

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #58368]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=58368 >


r30537:
$ cat A.pm
use v6;

grammar A {
    token b  { foo };
};

$ ./perl6 -e 'use A; say "foo" ~~ A::b' # works
foo

$ mkdir C
$ cp A.pm C/D.pm
$ ./perl6 -e 'use C::D; say "foo" ~~ A::b' # segfaults
Segmentation fault