In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/46d6503777f357c38f9d1cde19b6d3d1c6f36d3d?hp=566771cc1208eb7c5c8363435c4bd1299f0ae5e5>
- Log ----------------------------------------------------------------- commit 46d6503777f357c38f9d1cde19b6d3d1c6f36d3d Author: Nicholas Clark <[email protected]> Date: Mon May 4 22:58:02 2009 +0100 In Perl_gp_dup(), no need to explicitly zero ret->gp_refcnt after the Newxz(). ----------------------------------------------------------------------- Summary of changes: sv.c | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/sv.c b/sv.c index 9d6fddf..8c9b17a 100644 --- a/sv.c +++ b/sv.c @@ -10495,7 +10495,8 @@ Perl_gp_dup(pTHX_ GP *const gp, CLONE_PARAMS *const param) ptr_table_store(PL_ptr_table, gp, ret); /* clone */ - ret->gp_refcnt = 0; /* must be before any other dups! */ + /* ret->gp_refcnt must be 0 before any other dups are called. We're relying + on Newxz() to do this for us. */ ret->gp_sv = sv_dup_inc(gp->gp_sv, param); ret->gp_io = io_dup_inc(gp->gp_io, param); ret->gp_form = cv_dup_inc(gp->gp_form, param); -- Perl5 Master Repository
