[perl #128476] [BUG] .wrap causes segfault when wrapping core sub and using that sub in a module that uses the module that wraps

[via RT]

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


zoffix@leliana:/tmp/tmp.tEaH2sjXYg$ tree
.
├── A.pm6
└── B.pm6

0 directories, 2 files
zoffix@leliana:/tmp/tmp.tEaH2sjXYg$ cat B.pm6 
unit module B;
use soft;
&put.wrap(sub (| is raw) {say "We're here!"; callsame});
zoffix@leliana:/tmp/tmp.tEaH2sjXYg$ cat A.pm6 
unit module A;
use B;
zoffix@leliana:/tmp/tmp.tEaH2sjXYg$ perl6 -I. -MA -e 'put "foo"'
Segmentation fault
zoffix@leliana:/tmp/tmp.tEaH2sjXYg$