|STRLEN len|U32 flags
#endif
-#if defined(PERL_IN_LOCALE_C)
-#if defined(USE_LOCALE_NUMERIC) || defined(USE_LOCALE_COLLATE)
+#if defined(PERL_IN_LOCALE_C) && defined(USE_LOCALE)
s |char* |stdize_locale |NN char* locs
s |bool |is_cur_LC_category_utf8|int category
#endif
-#endif
#if defined(PERL_IN_UTIL_C)
s |const COP*|closest_cop |NN const COP *cop|NULLOK const OP *o
#define share_hek_flags(a,b,c,d) S_share_hek_flags(aTHX_ a,b,c,d)
#define unshare_hek_or_pvn(a,b,c,d) S_unshare_hek_or_pvn(aTHX_ a,b,c,d)
# endif
-# if defined(PERL_IN_LOCALE_C)
-# if defined(USE_LOCALE_NUMERIC) || defined(USE_LOCALE_COLLATE)
+# if defined(PERL_IN_LOCALE_C) && defined(USE_LOCALE)
#define is_cur_LC_category_utf8(a) S_is_cur_LC_category_utf8(aTHX_ a)
#define stdize_locale(a) S_stdize_locale(aTHX_ a)
-# endif
# endif
# if defined(PERL_IN_MALLOC_C)
#define adjust_size_and_find_bucket S_adjust_size_and_find_bucket
#include "reentr.h"
+#ifdef USE_LOCALE
+
/*
* Standardize the locale name from a string returned by 'setlocale'.
*
return locs;
}
+#endif
+
void
Perl_set_numeric_radix(pTHX)
{
}
-#endif /* USE_LOCALE */
-
-#ifdef USE_PERLIO
+#if defined(USE_PERLIO) && defined(USE_LOCALE_CTYPE)
{
/* Set PL_utf8locale to TRUE if using PerlIO _and_
the current LC_CTYPE locale is UTF-8.
#ifdef USE_LOCALE_NUMERIC
Safefree(curnum);
#endif /* USE_LOCALE_NUMERIC */
+
+#endif /* USE_LOCALE */
+
return ok;
}
#endif /* USE_LOCALE_COLLATE */
+#ifdef USE_LOCALE
+
STATIC bool
S_is_cur_LC_category_utf8(pTHX_ int category)
{
char *save_input_locale = NULL;
STRLEN final_pos;
+#ifdef LC_ALL
assert(category != LC_ALL);
+#endif
/* First dispose of the trivial cases */
save_input_locale = stdize_locale(setlocale(category, NULL));
return FALSE;
}
-
+#endif
/*
* Local variables:
assert(hv); assert(indexp)
#endif
-#if defined(PERL_IN_LOCALE_C)
-# if defined(USE_LOCALE_NUMERIC) || defined(USE_LOCALE_COLLATE)
+#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
#endif
#if defined(PERL_IN_MALLOC_C)
STATIC int S_adjust_size_and_find_bucket(size_t *nbytes_p)
}
float_converted:
eptr = PL_efloatbuf;
+
+#ifdef USE_LOCALE_NUMERIC
if (PL_numeric_radix_sv && SvUTF8(PL_numeric_radix_sv)
&& instr(eptr, SvPVX_const(PL_numeric_radix_sv)))
{
is_utf8 = TRUE;
}
+#endif
break;