[perl #63592] repeated 0.substr(-10) leads to segfault

[Will Coleda via RT]

On Mon Mar 02 01:03:59 2009, ml...@physik.uni-wuerzburg.de wrote:
> Rakudo 08b789048:
> $ time perl6 -e 'while 1 { 0.substr(-10) }'
> Segmentation fault
> 
> real    0m3.535s

Here's a pure PIR version; based on --target=pir and then trimmed down 
to the bare minimum to cause a segfault.

.sub 'main'
  loop31_test:
    push_eh fail
        $S1 = substr '0', -10, 1
    pop_eh
    # die 'not reachable'
  fail:
    pop_eh
    goto loop31_test
.end


-- 
Will "Coke" Coleda