This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
S_maybe_multiconcat(): fix some code comments
authorDavid Mitchell <davem@iabyn.com>
Mon, 19 Feb 2018 17:04:52 +0000 (17:04 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 19 Feb 2018 22:06:49 +0000 (22:06 +0000)
various typos and thinkos

op.c

diff --git a/op.c b/op.c
index c6f228b..b94553f 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3204,16 +3204,16 @@ S_maybe_multiconcat(pTHX_ OP *o)
             OP *prev;
 
             /* set prev to the sibling *before* the arg to be cut out,
-             * e.g.:
+             * e.g. when cutting EXPR:
              *
              *         |
-             * kid=  CONST
+             * kid=  CONCAT
              *         |
-             * prev= CONST -- EXPR
+             * prev= CONCAT -- EXPR
              *         |
              */
             if (argp == args && kid->op_type != OP_CONCAT) {
-                /* in e.g. '$x . = f(1)' there's no RHS concat tree
+                /* in e.g. '$x .= f(1)' there's no RHS concat tree
                  * so the expression to be cut isn't kid->op_last but
                  * kid itself */
                 OP *o1, *o2;