[perl #122789] substitutation does not seem to work properly in BEGIN

[via RT]

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


Hi all,


I found this

12:55:39] [jaffa4] m: BEGIN {my $p = 
'D:\m\p6\guiultimate\lib\\GUI\Upp.pm6'; say $p.subst(/(.+)\\.+$/,{$0});}
[12:55:40] [+camelia] rakudo-moar 3fae8d: OUTPUT«␤»
[12:55:47] [jaffa4] m: {my $p = 'D:\m\p6\guiultimate\lib\\GUI\Upp.pm6'; 
say $p.subst(/(.+)\\.+$/,{$0});}
[12:55:48] [+camelia] rakudo-moar 3fae8d: 
OUTPUT«D:\m\p6\guiultimate\lib\GUI␤»
[12:56:03] [jaffa4] bug!!!!!!!!!!!!!!!


Jaffa4