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

On Fri Mar 27 09:35:52 2015, sprout wrote:
> This variation loops:> > ./miniperl -e '0{my&h@0;0;sub{sub{h'> > I think this line in find_lexical_cv is wrong:> > 	compcv = CvOUTSIDE(PL_compcv);> > It should be CvOUTSIDE(compcv).

It has nothing to do with syntax errors.  This example demonstrates the problem more clearly (to me, at least):

$ ./perl -Ilib -Mfeature=:all -e 'my sub h; sub{my $x; sub{h}}'
The lexical_subs feature is experimental at -e line 1.
Assertion failed: (SvTYPE(cv) == SVt_PVCV || SvTYPE(cv) == SVt_PVFM), function Perl_cv_const_sv_or_av, file op.c, line 7933.
Abort trap: 6

I have now fixed it in d655d9a2c4.

-- 

Father Chrysostomos


---
via perlbug:  queue: perl5 status: open
https://rt.perl.org/Ticket/Display.html?id=124099