summaryrefslogtreecommitdiff
path: root/utf8.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-04-02 20:27:24 +0000
committerNicholas Clark <nick@ccl4.org>2006-04-02 20:27:24 +0000
commita98fe34d09e2476f1a21bfb9dc730dc9ab02b0b4 (patch)
tree82fd9ed46a504f5d4f07def11218e8e31deaaffe /utf8.h
parentdf4c34dc6f95fdf32fd0462242a4d4adc90fd779 (diff)
downloadperl-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 'utf8.h')
-rw-r--r--utf8.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/utf8.h b/utf8.h
index 64dc393020..9bf39286c8 100644
--- a/utf8.h
+++ b/utf8.h
@@ -188,7 +188,7 @@ encoded character.
* SpecialCasing.txt. */
#define UTF8_MAXBYTES_CASE 6
-#define IN_BYTES (PL_curcop->op_private & HINT_BYTES)
+#define IN_BYTES (CopHINTS_get(PL_curcop) & HINT_BYTES)
#define DO_UTF8(sv) (SvUTF8(sv) && !IN_BYTES)
#define UTF8_ALLOW_EMPTY 0x0001