In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/707b805eb119df89ce8192e0415768c10dc19501?hp=e3fc134b1ac7f28cea00beac3f3718ea514d9c2b>
- Log ----------------------------------------------------------------- commit 707b805eb119df89ce8192e0415768c10dc19501 Author: Rafael Garcia-Suarez <r...@consttype.org> Date: Wed Feb 27 13:52:01 2013 +0100 Note what incrementing the op_type actually does This comment is intended to improve the greppability of the code. ----------------------------------------------------------------------- Summary of changes: op.c | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/op.c b/op.c index 91b9d5d..2b83188 100644 --- a/op.c +++ b/op.c @@ -8269,6 +8269,8 @@ Perl_ck_spair(pTHX_ OP *o) #endif kUNOP->op_first = newop; } + /* transforms OP_REFGEN into OP_SREFGEN, OP_CHOP into OP_SCHOP, + * and OP_CHOMP into OP_SCHOMP */ o->op_ppaddr = PL_ppaddr[++o->op_type]; return ck_fun(o); } -- Perl5 Master Repository