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 (file)
--- 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;