diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-04-02 11:17:58 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-02 11:17:58 +0000 |
| commit | 623e66097f3d3c76e4fbfed49657029a98953c17 (patch) | |
| tree | 4304a16273ac0891e56eafbcf6a80baef63a7fdb /pp_ctl.c | |
| parent | 38ab35f8085a56081a4dbd8b974815dee28ebfd1 (diff) | |
| download | perl-623e66097f3d3c76e4fbfed49657029a98953c17.tar.gz | |
Abstract all reads/writes of the hints in COPs with 2 new macros,
CopHINTS_get() and CopHINTS_set().
p4raw-id: //depot/perl@27677
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -1695,8 +1695,7 @@ PP(pp_caller) /* XXX only hints propagated via op_private are currently * visible (others are not easily accessible, since they * use the global PL_hints) */ - PUSHs(sv_2mortal(newSViv((I32)cx->blk_oldcop->op_private & - HINT_PRIVATE_MASK))); + PUSHs(sv_2mortal(newSViv(CopHINTS_get(cx->blk_oldcop)))); { SV * mask ; SV * const old_warnings = cx->blk_oldcop->cop_warnings ; @@ -2815,7 +2814,7 @@ Perl_sv_compile_2op(pTHX_ SV *sv, OP** startop, const char *code, PAD** padp) *padp = (AV*)SvREFCNT_inc_simple(PL_comppad); LEAVE; if (IN_PERL_COMPILETIME) - PL_compiling.op_private = (U8)(PL_hints & HINT_PRIVATE_MASK); + CopHINTS_set(&PL_compiling, PL_hints); #ifdef OP_IN_REGISTER op = PL_opsave; #endif |