In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ed7df46e9e6349457d5a4b7dab19ea6691587174?hp=36195052d1d557ad70ddca695d75e18cb1fc3bbb>
- Log ----------------------------------------------------------------- commit ed7df46e9e6349457d5a4b7dab19ea6691587174 Author: Andy Lester <[email protected]> Date: Wed Oct 26 11:45:12 2016 -0600 PATCH: [perl #129964] Fix spelling of "referent" in five places. ----------------------------------------------------------------------- Summary of changes: sv.c | 8 ++++---- t/op/threads.t | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/sv.c b/sv.c index dc0ef5c601..ee6fcebe00 100644 --- a/sv.c +++ b/sv.c @@ -1205,7 +1205,7 @@ Perl_sv_upgrade(pTHX_ SV *const sv, svtype new_type) const struct body_details *new_type_details; const struct body_details *old_type_details = bodies_by_type + old_type; - SV *referant = NULL; + SV *referent = NULL; PERL_ARGS_ASSERT_SV_UPGRADE; @@ -1270,7 +1270,7 @@ Perl_sv_upgrade(pTHX_ SV *const sv, svtype new_type) break; case SVt_IV: if (SvROK(sv)) { - referant = SvRV(sv); + referent = SvRV(sv); old_type_details = &fake_rv; if (new_type == SVt_NV) new_type = SVt_PVNV; @@ -1465,9 +1465,9 @@ Perl_sv_upgrade(pTHX_ SV *const sv, svtype new_type) if (UNLIKELY(new_type == SVt_REGEXP)) sv->sv_u.svu_rx = (regexp *)new_body; else if (old_type < SVt_PV) { - /* referant will be NULL unless the old type was SVt_IV emulating + /* referent will be NULL unless the old type was SVt_IV emulating SVt_RV */ - sv->sv_u.svu_rv = referant; + sv->sv_u.svu_rv = referent; } break; default: diff --git a/t/op/threads.t b/t/op/threads.t index 99e69bde8a..a2dbdca700 100644 --- a/t/op/threads.t +++ b/t/op/threads.t @@ -323,7 +323,7 @@ use threads; # During cloning 'look' at the object sub CLONE { foreach my $id (keys(%reg)) { - # This triggers SvREFCNT_inc() then SvREFCNT_dec() on the referant. + # This triggers SvREFCNT_inc() then SvREFCNT_dec() on the referent. my $obj = $reg{$id}; } } -- Perl5 Master Repository
