[perl #60172] segfault in expand_pcc_sub_call

[via RT]

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


.sub _main
  ($S0) = 'blah'(:pir_only=>1)
.end

segfaults with:

0xb7e4fe84 in expand_pcc_sub_call (interp=0x804f040, unit=0x8116688,
    ins=0x8120318) at compilers/imcc/pcc.c:706
706             if (!meth_call && (the_sub->type & VTADDRESS)) {
(gdb) bt
#0  0xb7e4fe84 in expand_pcc_sub_call (interp=0x804f040, unit=0x8116688,
    ins=0x8120318) at compilers/imcc/pcc.c:706
#1  0xb7e40a93 in find_basic_blocks (interp=0x804f040, unit=0x8116688, first=1)
    at compilers/imcc/cfg.c:261

-- 
Will "Coke" Coleda