diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-04-02 20:27:24 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-02 20:27:24 +0000 |
| commit | a98fe34d09e2476f1a21bfb9dc730dc9ab02b0b4 (patch) | |
| tree | 82fd9ed46a504f5d4f07def11218e8e31deaaffe /pp_ctl.c | |
| parent | df4c34dc6f95fdf32fd0462242a4d4adc90fd779 (diff) | |
| download | perl-a98fe34d09e2476f1a21bfb9dc730dc9ab02b0b4.tar.gz | |
Change 27677 missed two direct accesses to op_private in COPs.
I believe that all are now found, as redefining CopHINTS_get(c)
to (~(c)->op_private) (with corresponding changes to CopHINTS_set()
and the initialisation of PL_compiling) works.
p4raw-id: //depot/perl@27687
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4090,7 +4090,7 @@ S_do_smartmatch(pTHX_ HV *seen_this, HV *seen_other) PUSHs(other); PUSHs(*svp); PUTBACK; - if ((PL_curcop->op_private & HINT_INTEGER) == HINT_INTEGER) + if (CopHINTS_get(PL_curcop) & HINT_INTEGER) (void) pp_i_eq(); else (void) pp_eq(); @@ -4184,7 +4184,7 @@ S_do_smartmatch(pTHX_ HV *seen_this, HV *seen_other) /* Otherwise, numeric comparison */ PUSHs(d); PUSHs(e); PUTBACK; - if ((PL_curcop->op_private & HINT_INTEGER) == HINT_INTEGER) + if (CopHINTS_get(PL_curcop) & HINT_INTEGER) (void) pp_i_eq(); else (void) pp_eq(); |