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
