/* disallow with "" or "0" */
*bad_lang_use_once
&& strNE("0", bad_lang_use_once)))));
- bool done = FALSE;
/* setlocale() return vals; not copied so must be looked at immediately */
const char * sl_result[NOMINAL_LC_ALL_INDEX + 1];
* volatile */
const char * curlocales[NOMINAL_LC_ALL_INDEX + 1];
- char * locale_param;
-
# ifdef WIN32
/* In some systems you can find out the system default locale
assert(NOMINAL_LC_ALL_INDEX == LC_ALL_INDEX);
# endif
# endif /* DEBUGGING */
-# ifndef LOCALE_ENVIRON_REQUIRED
-
- PERL_UNUSED_VAR(done);
- PERL_UNUSED_VAR(locale_param);
-
-# else
+# ifdef LOCALE_ENVIRON_REQUIRED
/*
* Ultrix setlocale(..., "") fails if there are no environment
* variables from which to get a locale name.
*/
-# ifdef LC_ALL
+# ifndef LC_ALL
+# error Ultrix without LC_ALL not implemented
+# else
+ {
+ bool done = FALSE;
if (lang) {
sl_result[LC_ALL_INDEX] = do_setlocale_c(LC_ALL, setlocale_init);
DEBUG_LOCALE_INIT(LC_ALL, setlocale_init, sl_result[LC_ALL_INDEX]);
setlocale_failure = TRUE;
}
if (! setlocale_failure) {
+ const char * locale_param;
for (i = 0; i < LC_ALL_INDEX; i++) {
locale_param = (! done && (lang || PerlEnv_getenv(category_names[i])))
? setlocale_init
DEBUG_LOCALE_INIT(categories[i], locale_param, sl_result[i]);
}
}
+ }
# endif /* LC_ALL */
# endif /* LOCALE_ENVIRON_REQUIRED */