On Wed Apr 23 13:55:56 2014, chorny wrote:
> This is a bug report for perl from alex...@gmail.com,> generated with the help of perlbug 1.40 running under perl 5.19.11.> > > -----------------------------------------------------------------> [Please describe your issue here]> > Test 05_nest.t has segfault, but only if tests are called as "&main".> With> "main()" all is ok.> Test-SharedFork is a pure-perl module and does not have non-core> dependencies.> > Error reported here: https://github.com/tokuhirom/Test-> SharedFork/issues/13> > Tested on Strawberry perl 5.9.11.>
VC 2003 32 bit 5.19.10 ish.
------------------------------
> perl519.dll!S_sv_dup_common(interpreter * my_perl=0x00a205ec, const sv * const sstr=0xabababab, clone_params * const param=0x0012fae8) Line 12306 + 0x3 C
perl519.dll!Perl_sv_dup_inc(interpreter * my_perl=0x00a205ec, const sv * const sstr=0xabababab, clone_params * const param=0x0012fae8) Line 12712 + 0x17 C
perl519.dll!Perl_cx_dup(interpreter * my_perl=0x00a205ec, context * cxs=0x0036cda4, long ix=1, long max=168, clone_params * param=0x0012fae8) Line 12782 + 0x14 C
perl519.dll!Perl_si_dup(interpreter * my_perl=0x00a205ec, stackinfo * si=0x0036bd64, clone_params * param=0x0012fae8) Line 12858 + 0x22 C
perl519.dll!perl_clone_using(interpreter * proto_perl=0x00364824, unsigned long flags=1, IPerlMem * ipM=0x00cd92cc, IPerlMem * ipMS=0x00cd92e8, IPerlMem * ipMP=0x00cd9304, IPerlEnv * ipE=0x00cd9320, IPerlStdIO * ipStd=0x00cd9358, IPerlLIO * ipLIO=0x00cd93f4, IPerlDir * ipD=0x00cd945c, IPerlSock * ipS=0x00cd9488, IPerlProc * ipP=0x00cd9538) Line 13895 + 0x14 C
perl519.dll!PerlProcFork(IPerlProc * piPerl=0x003677c0) Line 1832 + 0x65 C
perl519.dll!Perl_pp_fork(interpreter * my_perl=0x00364824) Line 4021 + 0x16 C
perl519.dll!Perl_runops_standard(interpreter * my_perl=0x00364824) Line 42 + 0xa C
perl519.dll!S_run_body(interpreter * my_perl=0x00364824, long oldscope=1) Line 2449 + 0xd C
perl519.dll!perl_run(interpreter * my_perl=0x00364824) Line 2368 C
perl519.dll!RunPerl(int argc=2, char * * argv=0x00362c68, char * * env=0x003664f0) Line 259 + 0x9 C
perl.exe!main(int argc=2, char * * argv=0x00362c68, char * * env=0x00363528) Line 23 + 0x12 C
perl.exe!mainCRTStartup() Line 398 + 0xe C
kernel32.dll!_BaseProcessStart@4() + 0x23
------------------------------------
Unhandled exception at 0x28062a1c (perl519.dll) in perl.exe: 0xC0000005: Access violation reading location 0xabababb3.
------------------------------------
SV * sstr is 0xabababb3
------------------------------------
/* duplicate an SV of any type (including AV, HV etc) */
static SV *
S_sv_dup_common(pTHX_ const SV *const sstr, CLONE_PARAMS *const param)
{
dVAR;
SV *dstr;
PERL_ARGS_ASSERT_SV_DUP_COMMON;
if (SvTYPE(sstr) == (svtype)SVTYPEMASK) {<<<<<<<<<<<<<<<CRASH
#ifdef DEBUG_LEAKING_SCALARS_ABORT
abort();
#endif
return NULL;
}
-------------------------
attached pic of var dump of var context * ncx in Perl_cx_dup.
--
bulk88 ~ bulk88 at hotmail.com
---
via perlbug: queue: perl5 status: new
https://rt.perl.org/Ticket/Display.html?id=121721