From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Wed, 3 Nov 1999 03:52:48 +0000 (-0500)
Subject: ref to non-lvalue method
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4978d6d9ce16dffa585865d4af8c887a4f77ab53;p=p5sagit%2Fp5-mst-13.2.git

ref to non-lvalue method

To: perl5-porters@perl.org (Mailing list Perl5)
Message-Id: <199911030852.DAA06563@monk.mps.ohio-state.edu>

p4raw-id: //depot/cfgperl@4519
---

diff --git a/op.c b/op.c
index cb868a4..d0986d0 100644
--- a/op.c
+++ b/op.c
@@ -1281,7 +1281,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
 	}
 	else {				/* lvalue subroutine call */
 	    o->op_private |= OPpLVAL_INTRO;
-	    if (type == OP_GREPSTART || type == OP_ENTERSUB) {
+	    if (type == OP_GREPSTART || type == OP_ENTERSUB || type == OP_REFGEN) {
 		/* Backward compatibility mode: */
 		o->op_private |= OPpENTERSUB_INARGS;
 		break;