diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-20 21:50:31 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-20 21:50:31 +0000 |
| commit | bafb2adc256d4363e483e0aed4b43fdcf2c57a9b (patch) | |
| tree | ec956c6724ff74555a0770b1fabb55b6a0a374db /pp_hot.c | |
| parent | 8e6639977ceec4416fe89fd83cf666f06787f259 (diff) | |
| download | perl-bafb2adc256d4363e483e0aed4b43fdcf2c57a9b.tar.gz | |
In struct block_sub and block_format, access the members hasargs and
lval via macros CxHASARGS() and CxLVAL(), which will allow the storage
location to be changed.
p4raw-id: //depot/perl@33017
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2505,7 +2505,7 @@ PP(pp_leavesublv) TAINT_NOT; - if (cx->blk_sub.lval & OPpENTERSUB_INARGS) { + if (CxLVAL(cx) & OPpENTERSUB_INARGS) { /* We are an argument to a function or grep(). * This kind of lvalueness was legal before lvalue * subroutines too, so be backward compatible: @@ -2532,7 +2532,7 @@ PP(pp_leavesublv) } } } - else if (cx->blk_sub.lval) { /* Leave it as it is if we can. */ + else if (CxLVAL(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. */ |