diff options
author | David Mitchell <davem@iabyn.com> | 2014-10-17 14:29:33 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2014-10-20 10:16:56 +0100 |
commit | 8160c8f5087e2f3acc3f9423356949718103de98 (patch) | |
tree | 13a319d6c44abe2a7679b4417e51c2640c6b6152 /pp.c | |
parent | f6f22b1fc01b8676e43ef64616ed7899a84bfec2 (diff) | |
download | perl-8160c8f5087e2f3acc3f9423356949718103de98.tar.gz |
pp_av2arylen(): rename var from 'sv' to svp'
Conventionally we name variables of type 'SV**' svp rather than sv.
Calling the var 'sv' in this small function initially confused me,
so rename it.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -418,12 +418,12 @@ PP(pp_av2arylen) AV * const av = MUTABLE_AV(TOPs); const I32 lvalue = PL_op->op_flags & OPf_MOD || LVRET; if (lvalue) { - SV ** const sv = Perl_av_arylen_p(aTHX_ MUTABLE_AV(av)); - if (!*sv) { - *sv = newSV_type(SVt_PVMG); - sv_magic(*sv, MUTABLE_SV(av), PERL_MAGIC_arylen, NULL, 0); + SV ** const svp = Perl_av_arylen_p(aTHX_ MUTABLE_AV(av)); + if (!*svp) { + *svp = newSV_type(SVt_PVMG); + sv_magic(*svp, MUTABLE_SV(av), PERL_MAGIC_arylen, NULL, 0); } - SETs(*sv); + SETs(*svp); } else { SETs(sv_2mortal(newSViv(AvFILL(MUTABLE_AV(av))))); } |