[perl #130389] [BUG] constant with BEGIN block triggers QAST::Block with cuid 4 has not appeared

[via RT]

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


<ZoffixW> m: constant HNY = BEGIN DateTime.new(year => .year + (1 if .month <= 
6)).utc given DateTime.now.utc; dd HNY
<camelia> rakudo-moar 660b0b: OUTPUT«===SORRY!===␤QAST::Block with cuid 4 has 
not appeared␤»
<ZoffixW> m: constant HNY = BEGIN { DateTime.new(year => .year + (1 if .month 
<= 6)).utc given DateTime.now.utc }; dd HNY
<camelia> rakudo-moar 660b0b: OUTPUT«===SORRY!===␤QAST::Block with cuid 4 has 
not appeared␤»
<ZoffixW> m: constant $HNY = BEGIN { DateTime.new(year => .year + (1 if .month 
<= 6)).utc given DateTime.now.utc }; dd HNY
<camelia> rakudo-moar 660b0b: OUTPUT«===SORRY!=== Error while compiling 
<tmp>␤Undeclared name:␤    HNY used at line 1␤␤»
<ZoffixW> m: constant $HNY = BEGIN { DateTime.new(year => .year + (1 if .month 
<= 6)).utc given DateTime.now.utc }; dd $HNY
<camelia> rakudo-moar 660b0b: OUTPUT«===SORRY!===␤QAST::Block with cuid 4 has 
not appeared␤»