Correct comment in op.c

‘Backward compatibility mode’ is poppycock, I’m afraid.  When part of
an argument list a sub call it may or may not be an lvalue.  That can-
not be determined until the value passed is (or is not) assigned to.
It has little to do with backward compatibility.

diff --git a/op.c b/op.c
index 44f3e18..3e6b0b9 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1759,7 +1759,7 @@ Perl_op_lvalue_flags(pTHX_ OP *o, I32 type, U32 flags)
                           |(OPpENTERSUB_INARGS * (type == OP_LEAVESUBLV));
            PL_modcount = RETURN_UNLIMITED_NUMBER;
            if (type == OP_GREPSTART || type == OP_ENTERSUB || type == OP_REFGEN) {
-               /* Backward compatibility mode: */
+               /* Potential lvalue context: */
                o->op_private |= OPpENTERSUB_INARGS;
                break;
            }