diff options
author | Karl Williamson <khw@cpan.org> | 2021-04-11 20:06:40 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-08-31 08:37:01 -0600 |
commit | b269edc857b8bcf53ac3451c35113ad996cadb62 (patch) | |
tree | 148a82c3de40faaccfa598db550e9431eed758bb /intrpvar.h | |
parent | 112f4f94ee0433b46530c806e4b4dee9f06bc382 (diff) | |
download | perl-b269edc857b8bcf53ac3451c35113ad996cadb62.tar.gz |
locale.c: Cache the current LC_CTYPE locale name
This is now used as a cache of length 1 to avoid having to lookup up the
UTF-8ness as often.
This commit also skips doing S_newctype() if the new boss is the same as
the old
Diffstat (limited to 'intrpvar.h')
-rw-r--r-- | intrpvar.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index 4351870393..22c2d8a9ad 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -839,6 +839,12 @@ PERLVARI(I, underlying_numeric_obj, locale_t, NULL) PERLVARI(I, scratch_locale_obj, locale_t, 0) #endif +#ifdef USE_LOCALE_CTYPE + +PERLVARI(I, ctype_name, const char *, NULL) /* Name of current ctype locale */ + +# endif + /* Array of signal handlers, indexed by signal number, through which the C signal handler dispatches. */ PERLVAR(I, psig_ptr, SV **) |