| Subject: | segfault in XS_List__Util_reduce |
perl -mList::Util -E'say List::Util->VERSION'
1.55
perl -MList::Util=reduce -e'my $code = sub { my $x=$a; my $y=$b; $x . $y }; print reduce \&code, 6,7,8,9;'
Segmentation fault
(gdb) bt full
#0 XS_List__Util_reduce (my_perl=0x555555571c40, cv=<optimized out>) at ListUtil.xs:570
_nOnclAshIngNamE_ = 0x555555574da8
padlist = 0x0
cx = 0x5555555c3e60
cv = 0x555555574da8
_p = <optimized out>
_p = <optimized out>
multicall_cop = <optimized out>
multicall_oldcatch = false
gimme = 2
retvals = 0x555555571c40
stash = 0x555555574e20
_p = <optimized out>
ret = 0x555555574df0
agv = <optimized out>
cv = 0x555555574da8
index = <optimized out>
bgv = 0x5555555bdde8
gv = 0x0
args = <optimized out>
block = <optimized out>
sp = <optimized out>
ax = 1
mark = <optimized out>
items = 5
ix = 0
__PRETTY_FUNCTION__ = "XS_List__Util_reduce"
tmpXSoff = <optimized out>
#1 0x00007ffff7c52482 in Perl_pp_entersub (my_perl=0x555555571c40) at pp_hot.c:5277
markix = <optimized out>
is_scalar = false
_p = <optimized out>
sp = <optimized out>
sv = 0x5555555be100
gv = 0x0
cv = 0x555555632580
cx = <optimized out>
old_savestack_ix = <optimized out>
__PRETTY_FUNCTION__ = "Perl_pp_entersub"
_p = <optimized out>
_gvgp = <optimized out>
_p = <optimized out>
_p = <optimized out>
_p = <optimized out>
_p = <optimized out>
_p = <optimized out>
_p = <optimized out>
#2 0x00007ffff7c0b03a in Perl_runops_debug (my_perl=0x555555571c40) at dump.c:2571
orig_stack_hwm = 0
#3 0x00007ffff7b65f02 in S_run_body (oldscope=1, my_perl=0x555555571c40) at perl.c:2761
__PRETTY_FUNCTION__ = "S_run_body"
_gvgp = <optimized out>
_gvgp = <optimized out>
_gvgp = <optimized out>
#4 perl_run (my_perl=0x555555571c40) at perl.c:2684
oldscope = 1
ret = <optimized out>
cur_env = {je_prev = 0x555555571f50, je_buf = {{__jmpbuf = {1, -8225366455920933215, 93824992236176, 0, 0, 0, -2842627210357291359, -2842645408633370975}, __mask_was_saved = 0, __saved_mask = {__val = {0 <repeats 14 times>, 140737353909032, 13171787041292751616}}}}, je_ret = 0, je_mustcatch = true, je_old_delaymagic = 0, je_old_stack_hwm = 0}
__PRETTY_FUNCTION__ = "perl_run"
_p = <optimized out>
_gvgp = <optimized out>
_gvgp = <optimized out>
#5 0x0000555555555279 in main (argc=<optimized out>, argv=<optimized out>, env=<optimized out>) at perlmain.c:127
exitstatus = <optimized out>
i = <optimized out>