[perl #126566] [BUG] EXPORTHOW and QAST::Block with cuid .... has not appeared

[via RT]

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


# ModularDoom.pm
package EXPORTHOW {
    package DECLARE {
        constant fff = Metamodel::ClassHOW;
        constant aa = Metamodel::ClassHOW;
    }
}

# main.pl
use ModularDoom;
aa { }

===SORRY!===
QAST::Block with cuid cuid_7_1446704021.11444 has not appeared

###########

This was a truly fascinating bug. Whether it triggers or not seems to be
dependent on the lengths of the names of the two constants (!).

If you chanage 'aa' to 'a' it will always trigger, but if anything > 1
character long gives out a differing error pattern depending on the length
of the other constant. The characters also matter.

so:

constant ff = Metamodel::ClassHOW;
constant aa = Metamodel::ClassHOW;

is fine.  And so is

OUR::{'f' x8} = Metamodel::ClassHOW;

16,24,32 ...

but then 56 doesn't work ! :( and then it starts to break down...

Anyway I hope solving this bug is as much fun as discovering it.

LL