[perl #69308] 'say $!.WHAT' inside a CATCH block segfaults

[via RT]

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


Rakudo 3d6536797861db887cdb4479610e10415e343628 on parrot r41410:

This program segfaults:

try {
        die 'foo';
        CATCH {
                say $!.WHAT
        }
}


Stack trace:

(gdb) run foo.pl
Starting program: /scratch/mlenz/rakudo/perl6 foo.pl
[Thread debugging using libthread_db enabled]
warning: Lowest section in /usr/lib/libicudata.so.38 is .hash at 
000000000000012
0
[New Thread 0x7fe894fef6f0 (LWP 19268)]

Program received signal SIGSEGV, Segmentation fault.
[Switching to Thread 0x7fe894fef6f0 (LWP 19268)]
Parrot_FixedPMCArray_visit (interp=0x24e2010, pmc=0x7fe8907668a0,
     info=0x7fff9d01d5d0) at ./src/pmc/fixedpmcarray.pmc:734
734                 (info->visit_pmc_now)(INTERP, *pos, info);
(gdb) bt
#0  Parrot_FixedPMCArray_visit (interp=0x24e2010, pmc=0x7fe8907668a0,
     info=0x7fff9d01d5d0) at ./src/pmc/fixedpmcarray.pmc:734
#1  0x00007fe894a66ee3 in visit_loop_todo_list (interp=0x24e2010,
     current=0x7fe8907668a0, info=0x7fff9d01d5d0) at src/pmc_freeze.c:1099
#2  0x00007fe894a6716f in Parrot_freeze (interp=0x24e2010, 
pmc=0x7fe88dfd0980)
     at src/pmc_freeze.c:1277
#3  0x00007fe894abeb79 in Parrot_default_clone (interp=0x24e2010,
     pmc=0x7fe8907d83c0) at ./src/pmc/default.pmc:1086
#4  0x00007fe894a603cf in Parrot_oo_clone_object (interp=0x24e2010,
     pmc=<value optimized out>, class_=<value optimized out>,
     dest=<value optimized out>) at src/oo.c:303
#5  0x00007fe8949ddfdb in Parrot_clone_p_p (cur_opcode=0x7fe891cb8a60,
     interp=0x24e2010) at src/ops/set.ops:474
#6  0x00007fe894a6978f in runops_slow_core (interp=0x24e2010,
     runcore=<value optimized out>, pc=0x7fe891cb8a60)
     at src/runcore/cores.c:843
#7  0x00007fe894a68741 in runops_int (interp=0x24e2010, offset=342590)
     at src/runcore/main.c:549
#8  0x00007fe894a3b621 in runops (interp=0x24e2010, offs=<value 
optimized out>)
     at src/call/ops.c:119
#9  0x00007fe894a3b7d1 in runops_args (interp=0x24e2010, 
sub=0x7fe88faa7400,
     obj=<value optimized out>, meth_unused=<value optimized out>,
     sig=0x7fe894b787fb "vP", ap=0x7fff9d01d7e0) at src/call/ops.c:269
---Type <return> to continue, or q <return> to quit---
#10 0x00007fe894a3bf68 in Parrot_runops_fromc_args (interp=0x24e2010,
     sub=0x7fe8907d83c0, sig=0x7fe894b787fb "vP") at src/call/ops.c:338
#11 0x0000000000400d5b in main (argc=2, argv=0x7fff9d01d9d8) at 
perl6.c:244536