[perl #124099] null ptr deref -> Perl_find_lexical_cv () at op.c:11235

perl -e 'm0{0\my}sub H;0;sub{sub{H' points to a slightly different line in op.c:

Perl_find_lexical_cv () at op.c:11239
11239	    while (PadnameOUTER(name)) {
gdb-peda$ list
11234	CV *
11235	Perl_find_lexical_cv(pTHX_ PADOFFSET off)
11236	{
11237	    PADNAME *name = PAD_COMPNAME(off);
11238	    CV *compcv = PL_compcv;
11239	    while (PadnameOUTER(name)) {
11240		assert(PARENT_PAD_INDEX(name));
11241		compcv = CvOUTSIDE(PL_compcv);
11242		name = PadlistNAMESARRAY(CvPADLIST(compcv))
11243