diff options
| author | Stephen McCamant <smcc@mit.edu> | 2001-01-10 13:36:51 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-12 16:09:09 +0000 |
| commit | 78f9721bf0dc33981bedf125bcfa5c0c42b69eba (patch) | |
| tree | 02808081953b524eb6a13bcb5ddba0e2a6e4666f /pp.h | |
| parent | b78ba3cc234763c7deff02f1d759b76b3a9ce5d1 (diff) | |
| download | perl-78f9721bf0dc33981bedf125bcfa5c0c42b69eba.tar.gz | |
Consolidated lvalue sub changes
Message-ID: <14941.16925.736415.785818@soda.csua.berkeley.edu>
p4raw-id: //depot/perl@8417
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -380,3 +380,10 @@ See C<PUSHu>. SvREFCNT_dec(tmpRef); \ SvRV(rv)=AMG_CALLun(rv,copy); \ } } STMT_END + +/* +=for apidoc mU||LVRET +True if this op will be the return value of an lvalue subroutine + +=cut */ +#define LVRET ((PL_op->op_private & OPpMAYBE_LVSUB) && Perl_is_lvalue_sub()) |