diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-09-01 16:27:48 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-09-01 16:27:48 +0000 |
| commit | 1c75a43bf7257081c0bfa53f793afc33ee95ff02 (patch) | |
| tree | 37fb00e35dc65350aa84c0ec579e2f9aff43ef62 /pp_hot.c | |
| parent | 006bba40b64d69fcc85f3e7a0fe4b845e93164c0 (diff) | |
| download | perl-1c75a43bf7257081c0bfa53f793afc33ee95ff02.tar.gz | |
Access to cx->blk_sub.lval via macros (as it's about to move).
p4raw-id: //depot/perl@28773
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2518,7 +2518,7 @@ PP(pp_leavesublv) TAINT_NOT; - if (cx->blk_sub.lval & OPpENTERSUB_INARGS) { + if (CX_SUB_LVAL_INARGS(cx)) { /* We are an argument to a function or grep(). * This kind of lvalueness was legal before lvalue * subroutines too, so be backward compatible: @@ -2545,7 +2545,7 @@ PP(pp_leavesublv) } } } - else if (cx->blk_sub.lval) { /* Leave it as it is if we can. */ + else if (CX_SUB_LVAL(cx)) { /* Leave it as it is if we can. */ /* Here we go for robustness, not for speed, so we change all * the refcounts so the caller gets a live guy. Cannot set * TEMP, so sv_2mortal is out of question. */ |