Note what incrementing the op_type actually does
authorRafael Garcia-Suarez <rgs@consttype.org>
Wed, 27 Feb 2013 12:52:01 +0000 (13:52 +0100)
committerRafael Garcia-Suarez <rgs@consttype.org>
Wed, 27 Feb 2013 12:52:35 +0000 (13:52 +0100)
This comment is intended to improve the greppability of the code.

op.c

index 91b9d5d..2b83188 100644 (file)
--- 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);
 }