In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/897340598920cdabb9c0638e4c3d777bf424ad97?hp=9077509c9b9bc1871867a5fba4351b95c670298d>
- Log ----------------------------------------------------------------- commit 897340598920cdabb9c0638e4c3d777bf424ad97 Author: David Mitchell <[email protected]> Date: Sat Jul 3 17:01:33 2010 +0100 add some comments to pp_concat make it clearer what type of concat each code branch handles ----------------------------------------------------------------------- Summary of changes: pp_hot.c | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/pp_hot.c b/pp_hot.c index 0e52921..6f48d5a 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -244,7 +244,7 @@ PP(pp_concat) rcopied = TRUE; } - if (TARG != left) { + if (TARG != left) { /* not $l .= $r */ STRLEN llen; const char* const lpv = SvPV_nomg_const(left, llen); lbyte = !DO_UTF8(left); @@ -254,9 +254,9 @@ PP(pp_concat) else SvUTF8_off(TARG); } - else { /* TARG == left */ + else { /* $l .= $r */ if (!SvOK(TARG)) { - if (left == right && ckWARN(WARN_UNINITIALIZED)) + if (left == right && ckWARN(WARN_UNINITIALIZED)) /* $l .= $l */ report_uninit(right); sv_setpvs(left, ""); } @@ -268,7 +268,7 @@ PP(pp_concat) if (!rcopied) { if (left == right) - /* $a.$a: do magic twice: tied might return different 2nd time */ + /* $r.$r: do magic twice: tied might return different 2nd time */ SvGETMAGIC(right); rpv = SvPV_nomg_const(right, rlen); rbyte = !DO_UTF8(right); -- Perl5 Master Repository
