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


# https://gist.github.com/gfldex/87e6af28194e5389a8f2

#  the-lib.pm6
sub EXPORT() {
        { 'Anon' => class {} }
}

# lib-loader.p6
use v6;
use lib '.';
use the-lib;

# OUTPUT
# ===SORRY!===
# When invoking cuid_1_1452682916.69 '', provided outer frame 0x44f5f80 
# (cuid_3_1452682916.69 'EXPORT') does not match expected static frame
# 0x44b20f0 (cuid_2_1452682916.69 '')

# Expected
# either having an empty class called Anon in the scope of lib-loader.p6 
# or a proper error message

Reply via email to