From d0887bf355d814178137ea993a289e129329180b Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 31 Dec 2011 23:52:14 -0800 Subject: [PATCH] Correct comment in op.c MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit ‘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. --- op.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/op.c b/op.c index 44f3e18..3e6b0b9 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; } -- 2.7.4