diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-03-17 22:12:27 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-03-17 22:12:27 +0000 |
| commit | 263464574f2ea8aa016791622811118aec3970fc (patch) | |
| tree | b0c36c2d9ed3a7092c8430f22a83c42c38ce55fc /intrpvar.h | |
| parent | cb9e20bb64f36b65e47caecca6cc3eb11c910175 (diff) | |
| download | perl-263464574f2ea8aa016791622811118aec3970fc.tar.gz | |
Make Perl_sv_len_utf8 honour the new ${^UTF8CACHE}.
If PERL_UTF8_CACHE_ASSERT is defined, default ${^UTF8CACHE} to -1
(assertion mode). Need a way to turn this on with existing command
line flags.
p4raw-id: //depot/perl@27538
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/intrpvar.h b/intrpvar.h index aa31aafc49..3908e5bee9 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -553,7 +553,11 @@ PERLVARI(Imy_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */ PERLVAR(Imemory_debug_header, struct perl_memory_debug_header) #endif -PERLVARI(Iutf8cache, signed char, 1) /* Is the utf8 caching code enabled? */ +#ifdef PERL_UTF8_CACHE_ASSERT +PERLVARI(Iutf8cache, I8, -1) /* Is the utf8 caching code enabled? */ +#else +PERLVARI(Iutf8cache, I8, 1) /* Is the utf8 caching code enabled? */ +#endif /* New variables must be added to the very end, before this comment, * for binary compatibility (the offsets of the old members must not change). |