In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/7a928d916facc702267dd7b5a9cf36135ae25009?hp=83c15bcdfa3e12f16b91efadce6c8410809e16cb>
- Log ----------------------------------------------------------------- commit 7a928d916facc702267dd7b5a9cf36135ae25009 Author: Jarkko Hietaniemi <[email protected]> Date: Mon May 16 18:30:44 2016 -0400 Coverity sees a path where a NULL op might be dereferenced. A very, very, very long path. Coverity CID 104861. ----------------------------------------------------------------------- Summary of changes: op.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/op.c b/op.c index 8c1dead..9f7fbe5 100644 --- a/op.c +++ b/op.c @@ -8466,10 +8466,12 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, if (ckWARN(WARN_REDEFINE) || ( ckWARN_d(WARN_REDEFINE) && ( !const_sv || SvRV(gv) == const_sv - || sv_cmp(SvRV(gv), const_sv) ))) + || sv_cmp(SvRV(gv), const_sv) ))) { + assert(cSVOPo); Perl_warner(aTHX_ packWARN(WARN_REDEFINE), "Constant subroutine %"SVf" redefined", SVfARG(cSVOPo->op_sv)); + } SvREFCNT_inc_simple_void_NN(PL_compcv); CopLINE_set(PL_curcop, oldline); -- Perl5 Master Repository
