| Subject: | [PATCH] Fixed assertion in DEBUGGING perls |
I fixed an assertion with debugging perls, because
the temp sv you are creating might have no SVs_PADMY flag.
#0 0x00007ffff6bb5405 in raise (sig=<value optimized out>) at
../nptl/sysdeps/unix/sysv/linux/raise.c:64
#1 0x00007ffff6bb8680 in abort () at abort.c:92
#2 0x00007ffff6bae5b1 in __assert_fail (assertion=0x7ffff7d9506a "(sv)-
Show quoted text
>sv_flags & 0x00040000",
file=<value optimized out>, line=939, function=0x7ffff7d95b50
"Perl_leave_scope") at assert.c:81
#3 0x00007ffff7c21980 in Perl_leave_scope (base=3) at scope.c:939
#4 0x00007ffff7c1bf82 in Perl_pop_scope () at scope.c:110
#3 0x00007ffff7c21980 in Perl_leave_scope (base=3) at scope.c:939
939 assert( SvFLAGS(sv) & SVs_PADMY);
(gdb) p *sv
$1 = {sv_any = 0x406e38, sv_refcnt = 2, sv_flags = 1073741835, sv_u =
{svu_pv = 0x692f70 " f^",
svu_iv = 6893424, svu_uv = 6893424, svu_rv = 0x692f70, svu_array =
0x692f70, svu_hash = 0x692f70,
svu_gp = 0x692f70, svu_fp = 0x692f70}}
Tested ok with all perls
--
Reini Urban