diff options
| author | Karl Williamson <khw@cpan.org> | 2014-05-15 19:29:41 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-06-05 11:23:00 -0600 |
| commit | c12840116686daefb4f2c59922677425930cd05f (patch) | |
| tree | 207f2f81a8247f7e63afa89be2706345aa6b1d0c /proto.h | |
| parent | 03ceeedffe9eb367d0b03776eea30405b6635ebd (diff) | |
| download | perl-c12840116686daefb4f2c59922677425930cd05f.tar.gz | |
Set utf8 flag properly in localeconv
Rare, but not unheard of, is for the strings returned by localeconv to
be in UTF-8. This commit looks for and sets the UTF-8 flag if they are.
so encoded.
A private function had to changed from static for this. It is renamed
to begin with an underscore to emphasize its private nature.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -5996,14 +5996,6 @@ PERL_CALLCONV SV* Perl_hfree_next_entry(pTHX_ HV *hv, STRLEN *indexp) assert(hv); assert(indexp) #endif -#if defined(PERL_IN_LOCALE_C) && defined(USE_LOCALE) -STATIC bool S_is_cur_LC_category_utf8(pTHX_ int category); -STATIC char* S_stdize_locale(pTHX_ char* locs) - __attribute__nonnull__(pTHX_1); -#define PERL_ARGS_ASSERT_STDIZE_LOCALE \ - assert(locs) - -#endif #if defined(PERL_IN_MALLOC_C) STATIC int S_adjust_size_and_find_bucket(size_t *nbytes_p) __attribute__nonnull__(1); @@ -8061,6 +8053,14 @@ PERL_CALLCONV SV* Perl_sv_dup_inc(pTHX_ const SV *const sstr, CLONE_PARAMS *cons assert(param) #endif +#if defined(USE_LOCALE) && (defined(PERL_IN_LOCALE_C) || defined (PERL_EXT_POSIX)) +PERL_CALLCONV bool Perl__is_cur_LC_category_utf8(pTHX_ int category); +STATIC char* S_stdize_locale(pTHX_ char* locs) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_STDIZE_LOCALE \ + assert(locs) + +#endif #if defined(USE_LOCALE_COLLATE) PERL_CALLCONV int Perl_magic_setcollxfrm(pTHX_ SV* sv, MAGIC* mg) __attribute__nonnull__(pTHX_1) |