[perl #115184] Segmentation Fault on 'try { CATCH { ~$! }; die }'

[via RT]

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


<bbkr_> rakudo: try { CATCH { ~$! }; die } # shortest form that segfaults on my 
machine
<p6eval> rakudo 870d18: OUTPUT«(signal SEGV)»
<bbkr_> rakudo: say $*PERL
<p6eval> rakudo 870d18: OUTPUT«("name" => "rakudo", "compiler" => {"name" => 
"rakudo", "ver" => "2012.09.1-19-g870d189", "release-number" => "", 
"build-date" => "2012-10-07T20:14:14Z", "codename" => ""}).hash␤»


Jnthns tests:

 <jnthn> rakudo: try { CATCH { say $! }; die }
 <p6eval> rakudo 870d18: OUTPUT«Mu()␤␤  in block  at /tmp/PvCL0g0K2j:1␤␤»
 <jnthn> rakudo: try { CATCH { say pir::typeof__SP($!) }; die }
 <p6eval> rakudo 870d18: OUTPUT«Null PMC access in name()␤  in block  at 
/tmp/z1hRUMISze:1␤  in block  at /tmp/z1hRUMISze:1␤␤»
 <jnthn> yowser
 <bbkr_> ?
 <jnthn> Yeah, that's bad.