diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-11-02 22:52:48 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-04 23:09:25 +0000 |
| commit | 4978d6d9ce16dffa585865d4af8c887a4f77ab53 (patch) | |
| tree | 82da0c0358aeb41c9e8cc353bcc17842e344e491 /op.c | |
| parent | ebf9100618f7cfa5335778cedbdb4f07ac68d99c (diff) | |
| download | perl-4978d6d9ce16dffa585865d4af8c887a4f77ab53.tar.gz | |
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
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |