diff options
| author | Radu Greab <radu@netsoft.ro> | 2001-01-12 21:16:09 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-12 18:05:30 +0000 |
| commit | 7c8af4ef9d2544e11473e47bd0c86ea792b65202 (patch) | |
| tree | 5029125fa0c3d0bc4cc4a519e58743935e353ae8 /op.c | |
| parent | 78f9721bf0dc33981bedf125bcfa5c0c42b69eba (diff) | |
| download | perl-7c8af4ef9d2544e11473e47bd0c86ea792b65202.tar.gz | |
Re: [PATCH] [ID 20001223.002] lvalues in list context
Message-ID: <14943.15321.515713.119805@ix.netsoft.ro>
p4raw-id: //depot/perl@8418
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1416,6 +1416,7 @@ Perl_mod(pTHX_ OP *o, I32 type) } else { /* lvalue subroutine call */ o->op_private |= OPpLVAL_INTRO; + PL_modcount = RETVAL_MAX; if (type == OP_GREPSTART || type == OP_ENTERSUB || type == OP_REFGEN) { /* Backward compatibility mode: */ o->op_private |= OPpENTERSUB_INARGS; |