# New Ticket Created by  Timothy Smith 
# Please include the string:  [perl #132570]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=132570 >


Save make-testcase.sh in /tmp, and:

rm -rf ./invalid-typename-bug; sh make-testcase.sh && \
    PERL6LIB=invalid-typename-bug/lib perl6 invalid-typename-bug/t.pl

If type=role, then the error is:

===SORRY!=== Error while compiling /tmp/invalid-typename-bug/lib/Bar.pm (Bar)
Invalid typename 'Baggy::Foo::TypeB'
at /tmp/invalid-typename-bug/lib/Bar.pm (Bar):7

If type=class, the error is:

===SORRY!=== Error while compiling /tmp/invalid-typename-bug/lib/Bar.pm (Bar)
'Bar' cannot inherit from 'Baggy::Foo::TypeB' because it is unknown.
at /tmp/invalid-typename-bug/lib/Bar.pm (Bar):7

Tested with:

$ perl6 --version
This is Rakudo version 2017.10 built on MoarVM version 2017.10
implementing Perl 6.c.
$ px --version
This is Rakudo version 2017.11-78-g1dbf5f589 built on MoarVM version
2017.11-27-gfac29990
implementing Perl 6.c.

Attachment: make-testcase.sh
Description: Bourne shell script

Reply via email to