In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/6ffb8402de3d7395c1145d4c773b8536ff0454b2?hp=cf8db57b138fa07b34eff3066c16fa1bf0afdf63>
- Log ----------------------------------------------------------------- commit 6ffb8402de3d7395c1145d4c773b8536ff0454b2 Author: David Mitchell <[email protected]> Date: Wed Aug 17 07:52:57 2016 +0100 add any_op field to the ANY savestack union This is an attempt to silence a (probably spurious) Coverity warning. ----------------------------------------------------------------------- Summary of changes: perl.h | 1 + scope.c | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/perl.h b/perl.h index 43f1a53..23b6431 100644 --- a/perl.h +++ b/perl.h @@ -3801,6 +3801,7 @@ union any { GV* any_gv; AV* any_av; HV* any_hv; + OP* any_op; char* any_pv; char** any_pvp; I32 any_i32; diff --git a/scope.c b/scope.c index ff84e64..ba0f263 100644 --- a/scope.c +++ b/scope.c @@ -1106,7 +1106,7 @@ Perl_leave_scope(pTHX_ I32 base) case SAVEt_FREEOP: a0 = ap[0]; ASSERT_CURPAD_LEGAL("SAVEt_FREEOP"); - op_free((OP*)a0.any_ptr); + op_free(a0.any_op); break; case SAVEt_FREEPV: -- Perl5 Master Repository
