id,summary,reporter,owner,description,type,status,priority,milestone,component,version,severity,resolution,keywords,cc,lang,patch,platform
1034,attempt to access code outside of current code segment,coke,,"See the [http://rt.perl.org/rt3/Ticket/Display.html?id=57088 Original report].

This PIR errors on exit:

{{{
$ cat tclsh.pir
.sub _main :main
.param pmc argv
 
load_bytecode 'tcllib.pir'

push_eh file_error
$P1 = find_name '&lsort'
$P1()
file_error:
pop_eh
.end
$ cat tcllib.pir
.sub '&lsort'
.local pmc compare
compare = find_name 'intlike'

$P0 = new 'ResizablePMCArray'
$P0[0] = 1
$P0[1] = 1

$P0.'sort'(compare)
.end

.sub 'intlike'
die 'expected foo'
.end
$ ./parrot tclsh.pir
attempt to access code outside of current code segment
}}}

Note that adding an 'exit 0' before the .end in the first file avoids the error.
",bug,closed,normal,,none,trunk,medium,fixed,,,,,
