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.

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index 44f3e186b0..3e6b0b9135 100644
--- 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;
 	    }